procedure UniDBGrid1ColumnSummary(Column: TUniDBGridColumn;
GroupFieldValue: Variant);
begin
if Column.FieldName <> 'Your field to display count' then
begin
if Column.AuxValue = NULL then Column.AuxValue:=0.00;
Column.AuxValue := Column.AuxValue + (Column.Field.AsFloat)
end
end;
procedure UniDBGrid1ColumnSummaryResult(Column: TUniDBGridColumn;
GroupFieldValue: Variant; Attribs: TUniCellAttribs; var Result: string);
var
I : Integer;
F : Real;
begin
if SameText(Column.FieldName, 'Your field to display count') then
begin
I := UniMainModule.your dataset.RecordCount;
Result := IntToStr(I);
Attribs.Font.Style:=[fsBold];
Attribs.Font.Color:=clGreen;
end
else
begin
F := Column.AuxValue;
Result := FormatFloat('#,0.00 ', F);
Attribs.Font.Style:=[fsBold];
Attribs.Font.Color:=clNavy;
Column.AuxValue:=NULL;
end;
end;