delphi cxGridDBBand 冻结列，固定列

  //open 数据集
  cxGridDBBandMain.Bands.Clear;
  cxGridDBBandMain.ClearItems;        //自动创建
  cxGridDBBandMain.DataController.CreateAllItems; //自动创建
  cxGridDBBandMain.EndUpdate;

  cxGridDBBandMain.Bands.Add;
  cxGridDBBandMain.Bands.Add;
  cxGridDBBandMain.Bands[0].FixedKind := fkLeft;   //
  for I := 0 to cxGridDBBandMain.ItemCount - 1 do
  begin
    if I < 3 then
    begin            //把需要固定的放入 BandIndex 0 里。 自由活动的 放在 1 里。
      TcxGridDBBandedColumn(cxGridDBBandMain.Items[I]).Position.BandIndex := 0;
    end
    else
    begin
      TcxGridDBBandedColumn(cxGridDBBandMain.Items[I]).Position.BandIndex := 1;
    end;
   // ShowMessage(IntToStr(kk));
  end;