Question

delphi下拉列表关联显示不出数据

代码如下可是combobox显示不出数据 这是为什么 procedure TForm1.ComboBox1Change(Sender: TObject);
begin
combobox1.Items.Clear;
with ADOQuery1 do
begin
close;
sql.Add('select department from codes');
open;
end;
while not ADOQuery1.eof do
begin
combobox1.Items.Add(ADOQuery1.FieldValues['deparment']);
next;
end;
end;

Answer 1

老大，你不要在ComboBox1Change里写代码啊，你加一条内容Add后就会触发这个事件，然后事件里又clear掉了，当然会没有数据啦。你在Adoquery的onopen里面写代码嘛。就是当这个数据库打开时触发一次就行了。把上面代码全搬过去应该就行了。不行的话你加我QQ远程协助。

Answer 2

你可以改用DBLookupComboBox控件，它可以绑定数据集，你只要单独查询出结果，然后生成数据集就行了,绑定就行了，不用那么麻烦的……

Answer 3

ComboBox1Change 里面写肯定不行