Question

Delphi用循环的方式给TComboBox赋值,怎么添加过滤条件呢?

要往TComboBox中添加数据库中number这个字段里的数据, 但是number中有些行是没有的, 如果直接按下面的语句写出来, TComboBox中显示出来的也会包含这些空行, 我知道用SQL语句怎么过滤这个空行, 但是要用到这个语句中, 就有点头大了.

谁能给点提示?

....
query1.Open;//返回数据集；
query1.first;
while not query1.eof do
begin
comboboz1.items.add(query1.fieldbyname(number).asstring);//向combobox里输入数据
query1.next;
end;

Answer 1

你可以在向combox添加item时加一条判断，就OK了!就是在
comboboz1.items.add(query1.fieldbyname(number).asstring
之前.如可以这样写：
if trim(query1.fieldbyname(number).asstring)<>'' then

comboboz1.items.add(query1.fieldbyname(number).asstring.

Answer 2

使用TDBCombBox组件，直接连接到数据表，选择要显示的列。

这种方法算是DELPHI标准的开发方式。
我感觉按你所说的需求，应该满足要求了。
能直接用的，何必再自己折腾呢！

如果是不满足需求，可以和我沟通，再进一步分析。

Answer 3

ss:string;

query1.Open;//返回数据集；
query1.first;
while not query1.eof do begin
ss:=query1.fieldbyname(number).asstring;
ss:=trim(ss);
with comboboz1.items do if (ss>'')and(indexof(ss)=-1) then add(ss);
query1.next;
end;

Answer 4

直接改变query1的sql语句，在sql语句里面过滤掉值为空的，这样向combobox里输入数据的速度更快