Question

delphi combobox 数据显示问题

程序运行正常,但是ADOQUERY1 里面不显示数据(选择COMBOBOX里的选项 跳 出相关数据)

procedure TForm1.ComboBox1Change(Sender: TObject);
BEGIN
with adoquery1 do
begin
close;
ADOquery1.close;
if combobox1.text='MC' then
ADOquery1.sql.text:='select MC from HYCPBHG where MC='''+combobox1.text+'''';
if combobox1.text='BH' then
ADOquery1.sql.text:='select BH from HYCPBHG where BH='''+combobox1.text+'''' ;
ADOquery1.open;
END;
END;
END.

Answer 1

你的combobox，items中是否有数据的。如果有数据的话，运行后，下拉就会有数据显示的，如果你要默认显示某一个记录的话，只需修改itemindex中的数值就可以。