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

点击combox显示数据，不是用Change的，是用OnEnter的；你把你的代码改成：
procedure TForm1.ComboBox1Enter(Sender:TObject);
begin
combobox1.items.clear;
with Adoquery1 do
begin
close;
sql.clear;
sql.add('select department from codes');
open;
end;
while not AdoQuery1.eof do
begin
ComboBox1.items.add(AdoQuery1.fieldvalues['deparment']);
QdoQuery1.next;
end;
end;

Answer 2

代码没什么问题 加个sql.clear;

代码放错地方了 像一楼的朋友说的这样 应该就是你想要的效果了 放到OnEnter事件中去