与数据集计算的字段中的DBGRID中的问题

Question

我有一个计算出的“余额”，该提交的“余额”显示了两个数据集字段之间的余额金额，我使用下一个代码来计算其值：

var
  Balance : Currency;

...

procedure TMyForm.MyQueryCalcFields(DataSet: TDataSet);
begin
  if MyQuery.FieldByName('MyFirst Field').AsCurrency > 0 then    
    Balance := Balance+MyQuery.FieldByName('MyFirst Field').AsCurrency;

  if MyQuery.FieldByName('MySecond Field').AsCurrency > 0 then   
    Balance := Balance-MyQuery.FieldByName('MySecond Field').AsCurrency;

  MyQuery.FieldByName('Balance').AsCurrency := Balance;
end; 

并且我使用tdbgrid显示了我的查询结果DBGrid Display的结果正确的值直到我开始缩放其垂直滚动条为止，在这种情况下，它显示错误的值。

我尝试将“ 0”分配给余额，但相同（开始滚动时值错误的值）。

如何使DBGrid保持正确的值？

Answer 1

Handler设计用于仅依赖当前记录值的计算。

如果您使用的数据集类别允许，我建议您在加载数据后立即计算一次余额字段：

var
    Balance : Currency;
begin
    Balance := 0;

    MyQuery.DisableControls();
    try
        //loading data
        MyQuery.Open;
        
        //calculating balance
        while(not MyQuery.Eof) do
        begin
            MyQuery.Edit;
            Balance := Balance + MyQuery.FieldByName('MyFirst Field').AsCurrency - MyQuery.FieldByName('MySecond Field').AsCurrency;
            MyQuery.FieldByName('Balance').AsCurrency := Balance;
            MyQuery.Post;
            
            MyQuery.Next;
        end;
        MyQuery.First;
    finally
        MyQuery.EnableControls();
    end;
end;