如何把某一表中的某一列中的数据导出到Combobox中呢？(1分)

狮

狮子王

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-07

• #1

请帮帮忙问题如上！
如果我要对该表进行添加时，如果Combobox中有要添加的数据则选中添加，如没有要添加的
数据则输入数据，并把该数据添加到Combobox中！请问各路大虾该如何做呢？（望给出代码）
我是名莱鸟，分不是很多，请拔刀相助！不甚感激！

 

J

jackl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-07

• #2

分太少了，呵呵
with query do
begin
close;
sql.clear;
sql.add('select field1 from tables ');
open;
while not query.eof do
begin
combobox.items.add(fields[0].asstring);
query.next;
end;
end;

 

狮

狮子王

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-07

• #3

to jack1
但是在运行的时候还是报错！
说dbedtreason:Fields 'reason' not found!
dbedtreason 是控件DBEdit
reason是该表的最后一个列，但我要添加到Combobox中的并不是该列，而是另一个name列！

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-07

• #4

你是其他地方否用了reason,或用到了未添加，应该在fields add中加入吧

 

C

chshanghai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-07

• #5

你可以用不Tdblookupcombox 控件完全可以达到你要的效果

 

C

citybug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-07

• #6

with query1 do
begin
close;
sql.clear;
sql.add('select * from 表名 where 条件');
open;
while not eof do
begin
combobox1.items.add(fieldbyname('字段名').asstring);
next;
end;
end;
如果你使用的是dbedit,则要求你指向字段名，直接使用Tcombobox就可以了。

 

狮

狮子王

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #7

接受答案了.