请问该怎样向DBComboBox的下拉框中动态的加入某字段的值且不重复?(50分)

X

xiao.9

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-28

• #1

请问该怎样向DBComboBox的下拉框中动态的加入某字段的值且不重复?
而当用下面的代码只能将字段的第一个值加入
for i:=0 to Query.RecordCount - 1 do
DBComboBox1.Items.Add(Query.FieldbyName('字段名').asString);

 

C

Chxn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-28

• #2

for i:=0 to Query.RecordCount - 1 do
if DBComboBox1.Items.IndexOf(str)=-1 then
DBComboBox1.Items.Add(Query.FieldbyName('字段名').asString);

 

C

CJ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-28

• #3

var
tmpQry:Tquery;
i:integer;
begin
tmpqry := tquery.create(application);
tmpqry.DataBase := 'mydb';
tmpqry.sql.add('select distinct myfield from mytable');
tmpqry.open;
while not tmpqry.eof do //faster and safer than for
begin
dbcbx.items.add(tmpqry.fields[0].asstring);
tmpqry.next;
end;
tmpqry.free;
end;

 

L

liuly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-28

• #4

http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=205970

 

千

千中元

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-24

• #5

cj给的方法里i好象没什么作用

 

S

shangjintong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-25

• #6

cj的例子可以，但要加入如下语句
dbcbx.items.Clear;//清空
while not tmpqry.eof do //faster and safer than for begin
if dbcbx.items.IndexOf(tmpqry.fields[0].asstring)=-1 then //不存在
dbcbx.items.add(tmpqry.fields[0].asstring);
tmpqry.next;
end;

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-09

• #7

接受答案了.