【搞定】自动计算问题.

happycpu

问题如图

happycpu

我用了数据集代理组件的CalcFields的方法倒是实现了。
不过得保存后才能现实出来.

有没有方法能在输入后就显示?

在帮我看看代码这么写有问题么?

procedure TMAINFORM.DataSetBroker1CalcFields(DataSet: TDataSet);
var lQuery:TQuery;
    lQuery_Str:String;
    CX_Str:String;
begin
    lQuery:= TQuery.Create(nil);
    try
        lQuery.ConnectionString :=STRCONN;
        CX_Str:=DataSetBroker1.DataSet.FieldByName ('cx').AsString ;
        lQuery_Str:='select CX,kc=(sum(drts) -sum(xsts)) from ccrbmxb where ZBGUID in (select guid from ccrbb where tbrq <= ''2007-8-6'')  and cx= '''+CX_Str+'''group by cx';
        lQuery.CommandText :=lQuery_Str;
        lQuery.open;
        DataSetBroker1.DataSet.FieldByName ('kc').AsInteger :=lQuery.Fields [1].AsInteger ;
    finally
        lQuery.Free;
    end;

end;

lixy

有没有方法能在输入后就显示：
在数据字段的Exit事件里处理 ，至于怎么取合计数，你要想想办法了

happycpu

我写在exit事件里.不过没有反应...

lixy

离开那个字段才会有反应的。

happycpu

恩。是离开了啊。.
没有反应.
也没有出错提示..

lixy

贴代码，我试了，可以赋值的，连动的效果

happycpu

procedure TCCRBXX.FIELD_MXSJJ_DRTSExit(Sender: TDataField);
var lQuery:TQuery;
    lQuery_Str:String;
    CX_Str:String;
begin
    lQuery:= TQuery.Create(nil);
    try
        lQuery.ConnectionString :=STRCONN;
        CX_Str:= DataSetMXSJJ.FieldByName ('cx').AsString ;
        lQuery_Str:='select CX,kc=(sum(drts) -sum(xsts)) from ccrbmxb where ZBGUID in (select guid from ccrbb where tbrq <= ''2007-8-6'')  and cx= '''+CX_Str+'''group by cx';
        lQuery.CommandText :=lQuery_Str;
        lQuery.open;
       // DataSetMXSJJ.edit;
       // DataSetMXSJJ.UpdateRecord ;
       DataSetMXSJJ.FieldByName ('KC').AsInteger :=lQuery.Fields [1].AsInteger ;

    finally
        lQuery.Free;
    end;
end;

atiger

1楼中参与计算的哪些是物理字段，哪些非物理字段
8楼的代码，肯定要保存后，才起作用，数据在本地还没有提交到数据库上，而Query是直接跟数据库交互，所以需要保存才行。

lixy

exit赋值应该没问题，只是你lQuery.Fields [1].AsInteger 可能获得了一个0吧。。因为你没保存数据
。所以我说要想办法做合计