您的位置:首页 > 其它

IwDbGrid中Column之动态建立

2007-03-05 15:24 253 查看
procedure TIWForm1.IWButton1Click(Sender: TObject);
var
clm : TIWDbGridColumn;
begin

clm := TIWDbGridColumn(IWDBGrid1.Columns.Add);
clm.Title.Text := '编号';
clm.DataField := 'ID';

with ds do
begin
Active := false;
CommandText := 'select ID from UseData ';
open;
end;
end;

环境:

BDS2006+Winxp Sp2+Acess2003

测试通过
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: