您所在位置：主题：求助，急用！！！！！
ly8307
[专家分：10] 发布于 2006-05-10 15:01:00
procedure TForm13.ComboBox1Change(Sender: TObject);
begin
with adoquery2 do
begin
SQL.Clear;
if combobox1.Text<>'' then
SQL.Add('select swmc from 食物成分表 where swmcpy like "'+combobox1.Text+'%"')
else
sql.Add('select swmc from 食物成分表');
Prepared;
active := true;
combobox1.Items.Clear;
while not Eof do
begin
combobox1.Items.Add(Fieldbyname('swmc').asstring);
Next;
end;
Close;
combobox1.AutoDropDown:=true;
end;
end;
我想输入一个字符串，在我输入字符串得时候下拉列表跟着变，可是当我输入字符串的时候只能输入一个字符，请问怎样解决？？？？？？
begin
with adoquery2 do
begin
SQL.Clear;
if combobox1.Text<>'' then
SQL.Add('select swmc from 食物成分表 where swmcpy like "'+combobox1.Text+'%"')
else
sql.Add('select swmc from 食物成分表');
Prepared;
active := true;
combobox1.Items.Clear;
while not Eof do
begin
combobox1.Items.Add(Fieldbyname('swmc').asstring);
Next;
end;
Close;
combobox1.AutoDropDown:=true;
end;
end;
我想输入一个字符串，在我输入字符串得时候下拉列表跟着变，可是当我输入字符串的时候只能输入一个字符，请问怎样解决？？？？？？
