procedure TForm1.DBGridEh1DataGroupFooterToDisplayText( Grid: TCustomDBGridEh; Column: TColumnEh; GroupFooter: TGridDataGroupFooterEh; FooterColumnItem: TGridDataGroupFooterColumnItemEh; var AValue: Variant; var DisplayValue: String; var Processed: Boolean); var I: Integer; tmp: string; begin //修正分组合计的值 if Column.FieldName = 'DML' then begin if ss <> 0 then begin DisplayValue := '毛利率:' + FormatFloat('##.##%', cb/ss * 100 ); Processed := True; //告诉系统,按我修正后的内容显示 end; end else if Column.FieldName = 'DMONEY_IN' then cb := AValue //记录变量值 else if Column.FieldName = 'DMONEY_SS' then ss := AValue end;
----------------------------------------------
Delphi爱好者。