主数据集中做一个计算字段,该计算字段显示从数据集某个字段的合计!当从数据集发生变化时主数据集的该计算字段自动更新!
该主数据集有若干条记录,每条记录都显示该计算字段!
var
count:Integer;
i : Integer;
hj : Integer;
begin
//DataSetXMFYSQSJJ.Open;
DataSetXMFYSQSJJ.First;
if (DataSetXMFYSQSJJ.FieldByName('xmbs').AsString=DataSetFYSJSYQKSJJ.FieldByName('xmbs').AsString) and (DataSetXMFYSQSJJ.FieldByName('xh').AsString=DataSetFYSJSYQKSJJ.FieldByName('xh').AsString) then
begin
count := DataSetFYSJSYQKSJJ.RecordCount;
if count <=0 then
begin
hj := 0;
end;
DataSetFYSJSYQKSJJ.First;
for i:=0 to count-1 do
begin
hj :=hj + DataSetFYSJSYQKSJJ.FieldByName('SJJE').AsInteger;
DataSetFYSJSYQKSJJ.Next;
//Dialogs.ShowMessage(tempstr);
end;
Value := hj;
end;
if (DataSetXMFYSQSJJ.FieldByName('xmbs').AsString<>DataSetFYSJSYQKSJJ.FieldByName('xmbs').AsString) or (DataSetXMFYSQSJJ.FieldByName('xh').AsString<>DataSetFYSJSYQKSJJ.FieldByName('xh').AsString) then
begin
DataSetXMFYSQSJJ.Next;
end;