如何动态改变Dbgrid1的列数? 谢谢用语句实现动态改变Dbgrid1的列数,如dbgrid2.Columns:=10;(这句出错)。比如我需要5列或15列,我怎么定义(用语句实现)。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 edit1.text:=dbgrid1.fields[4].asstring;edit2.text:=dbgrid1.fields[14].asstring; procedure TForm1.Button1Click(Sender: TObject);var i:Integer;begin for i:= 1 to 10 do DBGrid1.Columns.Add;end; Dbgrid1.Columns.Clear;Dbgrid1.Columns.Add.FieldName:='Field1';Dbgrid1.Columns.Add.FieldName:='Field2';//....Dbgrid1.Columns[0].Visible:=False;//...Dbgrid1.Columns[1].Visible:=True; procedure TForm1.ButtonAddColumnClick(Sender: TObject);var i:Integer;begin for i:= 1 to 你想改变至的个数 do DBGrid1.Columns.Add;end; 有用delphi做图像处理的兄弟吗,进来帮帮忙 通过winsock.send发送后的数据无法还原成包内容? 拦截opendialog 关于三层结构(希望有经验的兄弟能知无不言) 急!关于两个表互相update的问题!! java开发应用服务器,delphi做前端的应用程序,征求解决方案! 用DBImage处理Access数据库中OLE字段出现的问题 我是新人我怕谁 关于SQL的问题 问一个关于打印的问题? 关于类型文件的删除! 再问:用adotable提取表中的头三条记录,可以吗?
edit2.text:=dbgrid1.fields[14].asstring;
var
i:Integer;
begin
for i:= 1 to 10 do
DBGrid1.Columns.Add;
end;
Dbgrid1.Columns.Add.FieldName:='Field1';
Dbgrid1.Columns.Add.FieldName:='Field2';
//....
Dbgrid1.Columns[0].Visible:=False;
//...
Dbgrid1.Columns[1].Visible:=True;
var
i:Integer;
begin
for i:= 1 to 你想改变至的个数 do
DBGrid1.Columns.Add;
end;