Question

delphi查询代码在 edit的 onchage事件中无反应（输入内容 dbgrid不会刷新，显示查询数据）

procedure TForm1.Edit4Change(Sender: TObject);
var bh,sqlstr:string;
begin
if(edit4.text<>'') then
begin
try
with adoquery2 do
begin
bh:=Edit1.Text;
sqlstr:='select * from jsj where 编号 like ' + '''' + '%' + bh + '%' + '''';

adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add(sqlstr);
ADOQuery2.Open;
end;
except
messagebox(handle,'数据异常','提醒',MB_OK);
Exit;
end;
end;

end;

在按钮单击事件下是可以的，不知道为什么

Answer 1

上面的代码，并无太复杂之处，建议先直接在 Edit4Change 的代码上下个断点，然后运行程序，在 Edit4 里输入，跟踪调试即可。