CxView自动添加列

http://city193.blog.163.com/blog/static/341365232009112205541985/

function cxgrid_create_client_dbtable(cxGridDBTableView:tcxGridDBTableView;Fjeclientdata:TClientDataSet):Boolean;
var
  i:Integer;
  cxgridcolumn:TcxGridDBColumn;
  strtm:string;
begin
  Screen.Cursor :=  crHourGlass;
  cxGridDBTableView.BeginUpdate;
   cxGridDBTableView.ClearItems;
    for  i := 0 to Fjeclientdata.FieldCount - 1 do
    begin
      cxgridcolumn:=cxGridDBTableView.CreateColumn;
      strtm:=Fjeclientdata.Fields[i].FieldName;
      cxgridcolumn.DataBinding.FieldName :=strtm;

      if cxgridcolumn.DataBinding.Field is  TStringField
          then cxgridcolumn.Width := 150
          else cxgridcolumn.Width := 80;
    end;
    cxGridDBTableView.EndUpdate;
    Screen.Cursor := crDefault;

end;

function cxgrid_create_adotable_dbtable(cxGridDBTableView:tcxGridDBTableView;adotable:TADOTable):Boolean;
var
  i:Integer;
  cxgridcolumn:TcxGridDBColumn;
  strtm:string;
begin
  Screen.Cursor :=  crHourGlass;
  cxGridDBTableView.BeginUpdate;
   cxGridDBTableView.ClearItems;
    for  i := 0 to adotable.FieldCount - 1 do
    begin
      cxgridcolumn:=cxGridDBTableView.CreateColumn;
      strtm:=adotable.Fields[i].FieldName;
      cxgridcolumn.DataBinding.FieldName :=strtm;

      if cxgridcolumn.DataBinding.Field is  TStringField
          then cxgridcolumn.Width := 150
          else cxgridcolumn.Width := 80;
    end;
    cxGridDBTableView.EndUpdate;
    Screen.Cursor := crDefault;
end;