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;