Z
zoe88377
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);<br>begin<br> ADOTable1.Filtered := False;<br> ADOTable1.Filter := '???? like' + quotedstr(v1);<br> ADOTable1.Filtered := True;<br>end;<br>程序是否有问题?