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;

追问：Adoquery的onopen里面写代码？   onopen ？  有这个东西？

答案：
老大，你不要在
ComboBox1Change
里写代码啊，你加一条内容Add后就会触发这个事件，然后事件里又clear掉了，当然会没有数据啦。
你在Adoquery的onopen里面写代码嘛。就是当这个数据库打开时触发一次就行了。把上面代码全搬过去应该就行了。
不行的话你加我QQ远程协助。
你可以改用DBLookupComboBox控件，它可以绑定数据集，你只要单独查询出结果，然后生成数据集就行了,绑定就行了，不用那么麻烦的……
ComboBox1Change 里面写肯定不行

上一个：delphi 问题 高手来帮忙解决下
下一个：delphi数组数据输出给memo为什么不行？