DBGrid绑定数据集计算字段滚动时数值显示错误问题咨询

滚动后计算字段值错误的核心原因是OnCalcFields事件的触发逻辑和你的实现逻辑不匹配：

• 你使用窗体/全局级的Balance变量做跨记录累计，但OnCalcFields是单条记录级别的触发事件，拖动DBGrid滚动条时，数据集不会按从头到尾的固定顺序逐行触发计算，只会根据当前显示需要，触发对应可见行的计算事件
• 乱序触发下，你依赖的"逐行累加/扣减"逻辑完全无法保证执行顺序，哪怕给Balance初始赋值0，只要不是每次从头遍历所有记录前重置，累计值必然出错
• 额外注意：OnCalcFields事件本身只适合计算仅依赖当前记录内字段就能得出结果的值，比如单条记录的总金额=单价*数量，不适合编写需要依赖其他记录值的跨记录累计逻辑。

根据Balance的实际业务含义选择对应方案即可：

场景1：Balance是单条记录内两个字段的差值 #

如果不需要跨记录累计，只是计算当前记录两个字段的差，直接去掉全局变量，所有计算逻辑都在当前事件内基于当前记录完成即可：

procedure TMyForm.MyQueryCalcFields(DataSet: TDataSet);
var
  Income, Expense: Currency;
begin
  Income := DataSet.FieldByName('MyFirst Field').AsCurrency;
  Expense := DataSet.FieldByName('MySecond Field').AsCurrency;
  // 直接基于当前记录字段计算，不依赖外部变量
  DataSet.FieldByName('Balance').AsCurrency := Income - Expense;
end;

你原来代码中写的>0判断会跳过负数值的计算，如果业务上允许收支字段为负，直接去掉这个判断即可。

场景2：Balance是按顺序逐行累计的流水余额 #

如果需求是计算"到当前记录为止，所有前置记录累计的余额"，优先选择以下两个方案：

• 推荐方案：数据库层面计算
  直接用SQL窗口函数在查询时就把累计余额算好，作为普通字段返回，不需要客户端做计算，不管怎么滚动值都不会出错，性能也更高。以支持窗口函数的主流数据库为例：

  SELECT
    [MyFirst Field],
    [MySecond Field],
    -- 按业务需要的排序规则（比如记账日期、流水ID）排序逐行累计
    SUM([MyFirst Field] - [MySecond Field]) OVER (
      ORDER BY [你的排序字段, 如流水号、交易时间]
      ROWS BETWEEN UNBOUNDED PRECEDING AND CURRENT ROW
    ) AS Balance
  FROM 你的业务表
  

• 备选方案：客户端全量遍历计算
  如果受限于数据库版本不支持窗口函数必须在客户端计算，不要在OnCalcFields里写累计逻辑：每次数据集加载完成、排序变更后，先将数据集跳转到第一条，重置Balance为0，临时关闭数据集的UI绑定避免计算过程中刷新控件，逐行遍历所有记录算出每一行的Balance值并存入对应记录，遍历完成后再恢复绑定、跳回原浏览位置。注意必须给数据集设置固定的排序规则，否则行顺序变化会导致累计值错误。

内容的提问来源于stack exchange，提问作者Issam