FastReport实现遍历Dataset数据集计算

delphi在使用fastreport进行打印时，需要对数据进行计算求和。

在打印文本框的OnBeforePrint事件中进行以下代码即可实现效果

procedure Memo7OnBeforePrint(Sender: TfrxComponent);
var
DataSet: TfrxDataSet;
Hszs: Variant;
begin
  Hszs := 0;
  DataSet := Report.GetDataSet('frxdbdtst_Bmd'); // 替换为实际的数据集名称
  DataSet.First; // 将光标移动到第一条记录
  while not DataSet.Eof do
  begin
    Hszs := Hszs + DataSet.Value['Bmdzb_Zs']+DataSet.Value['Bmdzb_Cyzs'];
    DataSet.Next; // 移动到下一条记录
  end;
  Memo7.text := Hszs;
  DataSet.First;
end;