关于dbgrid1.DataSource.DataSet.Filter的问题

Question

DELPHI7
procedure Tfrm_spwh.spaglChange(Sender: TObject);
begin
   if Trim(bh.Text) = '' then
    dbgrid1.DataSource.DataSet.Filter := ''
  else
   dbgrid1.DataSource.DataSet.Filter := 'bh like '+''''+'%'+ UpperCase(bhgl.Text) + '%'+'''';
   dbgrid1.DataSource.DataSet.Filtered := True;
end;编译程序 执行到dbgrid1.DataSource.DataSet.Filter := 'bh like '+''''+'%'+ UpperCase(bhgl.Text) + '%'+'''';就报
Operation not applicable
这个错误  请问大家我哪里做的不对啊 

Answer 1

先False一下试下：procedure Tfrm_spwh.spaglChange(Sender: TObject);
begin
  dbgrid1.DataSource.DataSet.Filtered := False;//加这行  if Trim(bh.Text) = '' then
    dbgrid1.DataSource.DataSet.Filter := ''
  else
   dbgrid1.DataSource.DataSet.Filter := 'bh like '+''''+'%'+ UpperCase(bhgl.Text) + '%'+'''';
   dbgrid1.DataSource.DataSet.Filtered := True;
end;

Answer 2

http://stackoverflow.com/questions/11594724/using-like-statement-for-filtering

Answer 3

在DataSet的OnFilterRecord事件中控制