急！！怎样把某一字段内容加入到combobox item (50分)

N

newhorse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-20

• #1

 

L

ln_jinsong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-20

• #2

aaa:=table1.Fields.Fields[fieldsnum].AsString;
combobox1.Items.Add(aaa);

 

Z

zf501

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-20

• #3

用循环+Table(Query).next+Combox.item.add

 

郭

郭玉梁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-20

• #4

table1.first;
combobox1.items.clear;
while not table1.eof do
begin
combobox1.items.add(table1.fieldbyname('field1').asstring);
table1.next;
end;

 

T

taim

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-20

• #5

是数据库吗？那你用Dbcombobox吧

 

H

ht99

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-20

• #6

郭玉梁的比较完整

 

N

newhorse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-20

• #7

郭玉梁：
您 好
我用的是数据库录入，每次录入都有可能是以前已经输入的。所以使用dbcombobox方便些
。还有一问题： 怎样使它能把所得的内容不重复呢？如分数不够，再为你加50

烦请帮忙

 

N

newhorse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-21

• #8

多人接受答案了。

 

L

ln_jinsong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-22

• #9

最好是在添加数据库时就判断是否有重复，但在这儿也可以：
table1.first;
combobox1.items.clear;
while not table1.eof do
begin
fieldstring:=table1.fieldbyname('fieldname').asstring;
for i:=0 to combobox1.Items.Count do
begin

if combobox1.Items.Strings=fieldstring then
begin
showmessage('have');
Break;
end;

end;
if i>combobox1.Items.Count then
combobox1.items.add(fieldstring);
table1.next;
end;