大富翁论坛的弟兄们真好!很热情!我再提个问题,大伙再帮我学习一下,谢谢!(50分)

W

wu_jet

Unregistered / Unconfirmed
GUEST, unregistred user!
我想在DBGRID中动态设置显示的字段,我是通过TlistBOX选择后的字段
来设定显示,在编写代码后发现我用的方法好麻烦
begin
v_count:=0;
while v_count<=listbox2.items.Count-1 do
begin
sjgl.DBGrid1.Columns.Add.FieldName:=listbox2.Items.Strings[v_count];
v_count:=v_count+1;
end;
而且在我第二次选择相同字段后,DBGRID竟然在同一个网格中显示两个相同的字段,不会将上一次的
显示清除!
各位大哥,看书好麻烦,给我一个简单的语句一次搞定,比如象FOXPRO中的
brow field fie1,fie2,fie3...
谢谢!
 
如果你的DBGrid和数据库连,没有那么麻烦吧? 用一个Query控件,动态生成字段
列表SQL语句,把DBgrid通过DataSource控件连到Query就行了。 SQL语句如:

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select 字段1,字段2,...... from 你要查询或编辑的表名');
Query1.Open;
把你的DBgrid通过DataSource控件指向这个Query1就可以了。
用ListBox也一样可以动态生成SQL语句。
 
在DBGRID中动态显示字段问题
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1260183
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
I
回复
0
查看
464
import
I
I
回复
0
查看
547
import
I
顶部