如何将一个数据表里的某个字段读入DBComboBox.item 里!(50分)

C

chy.com

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-28

• #1

如何将一个数据表里的某个字段读入DBComboBox.item 里!

请教详细的源代码。我试过列表里只能读入当前的一个纪录。

谢谢！！

 

D

dq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-28

• #2

假定你要把Table1的F1字段读入DBComboBox1的Items中：
DBComboBox1.Items.Clear;
Table1.Active := True;
Table1.First;
while not Table1.Eof do begin
DBComboBox1.Items.Add(Table1.FieldByName('F1').AsString);
Table1.Next;
end;

 

J

jqw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-29

• #3

改进一下:
DBComboBox1.Items.Clear;
Table1.Active := True;
Table1.disablecontrols;//new
Table1.First;
while not Table1.Eof do begin
DBComboBox1.Items.Add(Table1.FieldByName('F1').AsString);
Table1.Next;
end
Table1.enablecontrols;//new

 

S

seachild2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-29

• #4

他们说的都很对，我也是这样做的，不过唯一区别是我动态创建了一个Query执行Select,
数据读取到DBComBoBox后，再Free掉Query.
这样的好处是不必在窗口上手工创建一个Query控件，那样将会始终占用内存！

 

M

mat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-30

• #5

DBComboBox1.Items.Add(Table1.FieldByName('F1').AsString);一句可改进为
DBComboBox1.Items.Add(vartostr(Table1.FieldByName('F1').AsString));

防止数据类型不匹配

 

C

chy.com

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-30

• #6

多人接受答案了。