delphi dbgrideh 合计栏

Delphi的TDBGridEh组件提供了一些属性和事件，可以实现合计栏的功能。以下是一种实现合计栏的方法：

1. 在TDBGridEh上添加一个TDBGridEhFooterParams组件。

2. 在TDBGridEhFooterParams的Columns属性中添加需要计算合计的列。

3. 在TDBGridEh的OnDataGroupGetFooterParams事件中设置合计栏的显示文本。

procedure TForm1.DBGridEh1DataGroupGetFooterParams(Sender: TObject;
  DataGroupLevel: Integer; FooterParams: TDBGridEhGroupFooterParams);
var
  i: Integer;
  Column: TColumnEh;
  Sum: Double;
begin
  // 计算合计值
  Sum := 0;
  for i := 0 to DBGridEh1.Columns.Count - 1 do
  begin
    Column := DBGridEh1.Columns[i];
    // 判断列是否需要计算合计
    if Column.Field <> nil then
    begin
      if Column.Field.DataType = ftFloat then
        Sum := Sum + Column.Field.AsFloat;
    end;
  end;
  
  // 设置合计栏的显示文本
  FooterParams.FooterValues[0] := '合计：' + FloatToStr(Sum);
end;

注意，上述示例中只计算了数据集中的浮点型字段的合计值。你可以根据需要修改代码以适应其他数据类型的合计计算