CXGrid动态添加列与合计栏

var
  i   : Integer;
  cl  : TcxGridDBBandedColumn;
begin
  Screen.Cursor :=  crHourGlass;
  cxtvMaster.BeginUpdate;
  try
    cxtvMaster.ClearItems;
    cxtvMaster.DataController.Summary.FooterSummaryItems.Clear;
    for i := 0 to cxtvMaster.DataController.DataSet.FieldCount - 1 do
    begin
      cl  :=  cxtvMaster.CreateColumn;
      cl.DataBinding.FieldName :=
          cxtvMaster.DataController.DataSet.Fields[i].FieldName;
      if cxtvMaster.DataController.DataSet.Fields[i] is TNumericField then
      begin
        TNumericField(cxtvMaster.DataController.DataSet.Fields[i])
            .DisplayFormat  :=  '#,##0.00';
        cl.Width := 80;
        cl.Summary.FooterKind := sksum;
      end
      else if cxtvMaster.DataController.DataSet.Fields[i] is TStringField then
        cl.Width := 100
      else
        cl.Width := 80;
      cl.HeaderAlignmentHorz :=  taCenter;
    end;  //if
  finally
    cxtvMaster.EndUpdate;
    Screen.Cursor := crDefault;
  end;
end;