如何手动执行“OnCalcFields”？事件？

Question

假设我想在 TClientDataSet 上执行耗时操作期间暂时禁用 OnCalcFields 事件（例如，通过设置 cdsCalcFields := nil）。当我重新附加 OnCalcFields 方法时，如何告诉 TClientDataSet 对计算字段执行重新计算？

另一种可能需要手动重新计算的情况是某些计算字段依赖于其他数据集的情况（例如，计算字段用于临时保存来自其他数据集的某些聚合值）。这在大多数情况下都可以正常工作，因为 OnCalcFields 事件的执行频率足以从其他数据集中获取正确的值。但在某些情况下，需要重新计算才能从其他数据集中获取正确的值。

将 AutoCalcFields 属性设置为 False 也可能会让您陷入需要手动重新计算的情况。

我已经看到了一些关于如何减少 OnCalcFields 事件执行的解释，但我找不到一种简单的方法来执行重新计算...

有什么建议吗？

Answer 1

计算字段是在从数据库检索记录时计算的，因此对数据集调用Refresh（或关闭 -> 打开）以强制重新计算。

（关于该问题的评论），要强制仅对一条记录进行重新计算，您可以在数据集上调用 RefreshRecord 。如果特定的数据集后代没有实现该方法，则调用 Edit 后调用 Cancel 也可以实现相同的效果。

Answer 2

调用刷新或关闭->可能会导致整个表从数据库重新加载。如果这不是您想要的，您可以自行调用 OnCalc 方法并将其传递给 CDS。尽管您可能需要手动滑动光标。

with DisplayAcctListCDS do begin
  First;
  while not Eof do begin
    Edit;
    DisplayAcctListCDSCalcFields(DisplayAcctListCDS);
    Next;
  end;
end;

假设 DisplayAcctListCDS 是带有计算字段的 TClientDataSet，而 DisplayAcctListCDSCalcFields 是 OnCalcFields 生成的事件方法。

Answer 3

这有点hack，但对我来说这个问题的答案是100%！

DBGrid.Height := 30; 
DBGrid.Height := 200; // Refresh all Rows after first
CalculatedProc(DataSet); // Refresh first calculated fields. (Write name of your calculate procedure)