delphi - 在 dbedit 按键上过滤 DBGrid 上的数据

Question

我使用 adodb/dbgo 进行编程并尝试使用此代码:

procedure TfrMain.dbeNoMejaKeyPress(Sender: TObject; var Key: Char);
begin
  dmWarbam.TblTrans_temp.Filtered := False;
  dmWarbam.TblTrans_temp.Filter := 'ID_ITEM = ' + QuotedStr(dbeNoMeja.Text);
  dmWarbam.TblTrans_temp.Filtered := True;
end;

和

procedure TfrMain.dbeNoMejaChange(Sender: TObject);
begin
  dmWarbam.TblTrans_temp.Filtered := False;
  dmWarbam.TblTrans_temp.Filter := 'ID_ITEM = ' + QuotedStr(dbeNoMeja.Text);
  dmWarbam.TblTrans_temp.Filtered := True;
end;

但是以上方法都不起作用，当我在 dbeNoMeja 上按下键时，它没有过滤，而是数据集将损坏/不完整的数据插入数据库。

有人能给我一些有效的例子吗(完整代码)

Answer 1

如果 dbedit 连接到与您要过滤的表相同的表，则会遇到问题，因为一旦您开始输入文本，该表就会进入 dsEdit 状态。

使用普通的 TEdit，并将通配符 (*) 附加到过滤器中的字符串

dmWarbam.TblTrans_temp.Filter := 'ID_ITEM = ' + QuotedStr(edtNoMeja.Text+'*');