5,386
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button1Click(Sender: TObject);
var
vCol : TColumnEh;
begin
vCol := DBGridEh1.Columns.Add ;
vCol.Title.Caption := 'Col1';
vCol.FieldName := '表的列名1';
vCol := DBGridEh1.Columns.Add;
vCol.Title.Caption := 'Col2';
vCol.FieldName := '表的列名2';
end;
procedure TForm2.FormCreate(Sender: TObject);
var
vCol : TColumn;
begin
vCol := DBGrid1.Columns.Add;
vCol.Title.Caption := 'Col1';
vCol.FieldName := '表的列名1';
vCol := DBGrid1.Columns.Add;
vCol.Title.Caption := 'Col2';
vCol.FieldName := '表的列名2';
end;