[lmikle]

Из живого проекта:

Код:

procedure TfReportForm.AddColumn(pCaption, pFieldName: string; pWidth, pGroupIndex, pSortIndex: integer; pVisible: boolean; IsSumm: Boolean = False);
var
  cxColumn: TcxGridDBColumn;
  cxSum: TcxGridDBTableSummaryItem;
begin
  cxColumn := cxGridReportDBTableView.CreateColumn;
  cxColumn.Caption := pCaption;
  cxColumn.DataBinding.FieldName := pFieldName;
  cxColumn.GroupIndex := pGroupIndex;
  if pSortIndex >= 0 then
    begin
      cxColumn.SortIndex := pSortIndex;
      cxColumn.SortOrder := soAscending;
    end;
  cxColumn.Visible := pVisible;
  if (pWidth > 0) then
    cxColumn.Width := pWidth;

  if IsSumm then
    begin
      //      cxSum := cxGridReportDBTableView.DataController.Summary.FooterSummaryItems.Add As TcxGridDBTableSummaryItem;
      cxSum := cxGridReportDBTableView.DataController.Summary.defaultGroupSummaryItems.Add as TcxGridDBTableSummaryItem;
      cxSum.FieldName := pFieldName;
      cxSum.Kind := skSum;
      cxSum.Column := cxColumn;
      cxSum.Position := spFooter;
    end;
end;