cxgrid动态多表头

 

function TForm15.CreateBand(View: TcxGridDBBandedTableView;   BandCaption, ParentBandCaption: String): TcxGridBand; var   band: TcxGridBand; begin   Result := nil;   if View = nil then exit;   if ParentBandCaption <> '' then     band := FMyList.Objects[FMyList.IndexOf(ParentBandCaption)] as TcxGridBand;   Result := view.Bands.Add;   with Result do   begin     Caption := BandCaption;     if (BandCaption <> '') and (ParentBandCaption <> '') and (BandCaption <> ParentBandCaption) then     begin       Position.ColIndex := band.ColumnCount + 1;       Position.BandIndex := band.Index;     end else if (BandCaption = '') and (ParentBandCaption = '') then     begin       Position.ColIndex := FRootBandCount + 1;       Position.BandIndex := -1;       FMyBand := Result;     end else begin       Position.ColIndex := FRootBandCount + 1;       Position.BandIndex := -1;     end;   end; end; function TForm15.CreateCol(View: TcxGridDBBandedTableView; FieldName: string;   BandCaption: string): TcxGridDBBandedColumn; var   band: TcxGridBand; begin   result := nil;   if View = nil then Exit;   if FieldName = '' then exit;   if BandCaption = '' then Exit;   band := FMyList.Objects[FMyList.IndexOf(BandCaption)] as TcxGridBand;   Result := View.CreateColumn;   with Result do   begin     DataBinding.FieldName := FieldName;     Position.ColIndex := band.ColumnCount + 1;     Position.BandIndex := band.Index;   end; end;