编程论坛 » Delphi论坛 » 大家帮忙看看我的代码，clear后就再选不上值。

linanguyu 发表于 2008-4-25 15:58

大家帮忙看看我的代码，clear后就再选不上值。

procedure TForm2.ComboBox2Change(Sender: TObject);
var user:string;
begin
user:=combobox2.Text;
with DataModule1.adoquery3 do
begin
Close;
SQL.clear;
SQL.Add('select 药品名称 from 药品信息表 where 药品简拼 like''%'+user+'%''');
Open;
combobox2.clear;//这以后combobox2一直是空的，选不上下拉菜单里的值。

while   not   eof   do
      begin

      combobox2.items.add(FieldByName('药品名称').AsString);
      next;
      end;
first;
end;

end;

volte 发表于 2008-4-25 16:23

combobox2.items.clear;
while not dataset.eof do
begin
    combobox2.items.add('sflslf')
end;

如果没有，那是你数据库没有数据！

linanguyu 发表于 2008-4-25 16:54

还是不行啊，从下拉菜单里还是选不上值，变化只是以前输入字母不显示出来，现在显示出来，一选择combobox里就空了

lonmmel 发表于 2008-5-10 01:31

我个人认为是你在combobox的change 事件里清空了combobox的值.

查看完整版本: 大家帮忙看看我的代码，clear后就再选不上值。