if dbgehMainDBTableView1.DataController.DataSet.Fields[i].DataType = ftFloat then
begin
cxGridDBTableSummaryItem := dbgehMainDBTableView1.DataController.Summary.FooterSummaryItems.Add as TcxGridDBTableSummaryItem;
cxGridDBTableSummaryItem.Column := dbgehMainDBTableView1.columns[i];
cxGridDBTableSummaryItem.FieldName := dbgehMainDBTableView1.DataController.DataSet.Fields[i].DisplayName;
cxGridDBTableSummaryItem.Kind := skSum;
end;
|