cxGrid多表头实现

cxGrid实现多表头，在网上也有不少文章。但是总感觉不用着不顺手。

结合DBGridEH的多表头实现方法，为了保持两者的兼容（还是个人习惯作祟吧）。主要代码如下：

一、function AddGridColumn(aGrid: TcxGridTableView; aCaption, aField: string; aWidth: integer = 40;
  aSumKind: string = ''; aVisible: Boolean = True; Edt: Boolean = True; Mov: Boolean = True): TcxGridDBColumn;
var
  tmpPos: integer;
  BandCap: string;
  BandView: TcxGridDBBandedTableView;
  Band: TcxGridBand;
  BandCol: TcxGridDBBandedColumn;
  function FindBandedByCaption(aCaption: string): TcxGridBand;
  var
    I: Integer;
    Find: Boolean;
  begin
    Find := False;
    Result := nil;
    for I := BandView.Bands.Count - 1 downto 0 do//从最后一个找起，因为同一个表头的字段往往会排列在一起。
    begin
      Result := BandView.Bands.Items[I];
      if Result.Caption = aCaption then
      begin Find := True; Exit; end;
    end;
    if not Find then//如果没有找到，就创建新的
    begin
      Result := BandView.Bands.Add;
      Result.Caption := aCaption;
    end;  
  end;

begin
  Result := TcxGridDBColumn(aGrid.CreateColumn);
  {AddCol(Result, aCaption, aField, aWidth, aSumKind, aVisible);
  Result.Options.Editing := Edt;
  Result.Options.Moving := Mov; }
  AddGridColumn(Result, aCaption, aField, aWidth, aSumKind, aVisible);
  //处理多表头问题
  if aGrid is TcxGridDBBandedTableView then
  begin
    BandView := TcxGridDBBandedTableView(aGrid);
    tmpPos := Pos('|', aCaption);//借鉴DBGridEh的格式
    if tmpPos > 0 then
    begin
      BandCap := Copy(aCaption, 1, tmpPos - 1);
      Delete(aCaption, 1, tmpPos);
    end
    else
      BandCap := aCaption;
    Band := FindBandedByCaption(BandCap);
    BandCol := TcxGridDBBandedColumn(Result);
    BandCol.Position.BandIndex := Band.Position.ColIndex;
    Result.Caption := aCaption;
      
  end;
end;

二、下面是动态创建字段的过程。(不需要多表头时，可以直接使用这个过程)

function AddGridColumn(aCol: TcxGridDBColumn; aCaption, aField: string; aWidth: integer = 40; aSumKind: string = ''; aVisible: Boolean = True; Edt: Boolean = True; Mov: Boolean = True): TcxGridDBColumn;
begin
  aCol.HeaderGlyphAlignmentHorz := taCenter;
  aCol.HeaderAlignmentHorz := taCenter;
  aCol.DataBinding.FieldName := aField;
  aCol.Caption := aCaption;
  aCol.Width := aWidth;
  aCol.Visible := aVisible;
  //这里要考虑数据集是否打开，否则不起作用
  if aCol.DataBinding.Field is TNumericField then
    TNumericField(aCol.DataBinding.Field).DisplayFormat := '#0.00';
  if aSumKind = '求和' then
  begin
    aCol.Summary.FooterKind := skSum;
    aCol.Summary.GroupFooterKind := skSum;
    aCol.Summary.GroupKind := skSum;
    aCol.Summary.FooterFormat := '#0.00';
  end
  else if (aSumKind = '计数') then
  begin
    aCol.Summary.FooterKind := skCount;
    aCol.Summary.GroupFooterKind := skCount;
    aCol.Summary.GroupKind := skCount;
  end
  else if aSumKind = '合计' then
  begin
    aCol.Summary.FooterKind := skCount;  
    aCol.Summary.GroupFooterKind := skCount;
    aCol.Summary.GroupKind := skCount;
    aCol.Summary.FooterFormat := '合计'; //实现显示‘合计’效果----简洁有效
    aCol.Summary.GroupFooterFormat := '合计';
    aCol.Summary.GroupFormat := '合计';
    //aCol.Summary.Item.OnGetDisplayText := THeJiClass.GetDisplayText;
  end
  else if (aSumKind = '平均值') then
  begin
    aCol.Summary.FooterKind := skAverage;
    aCol.Summary.GroupFooterKind := skAverage;
    aCol.Summary.GroupKind := skAverage;  
    aCol.Summary.FooterFormat := '#0.00';
  end;
  Result := aCol;

  Result.Options.Editing := Edt;
  Result.Options.Moving := Mov;
end;