ADODataSet1.filter:='address like ' quotedstr('%武%'); 沒問題. ADODataSet1.filter:='address not like ' quotedstr('%武%'); 或是 ADODataSet1.filter:='not (address like ' quotedstr('%武%') ')'; 都出現錯誤.

您好﹗    請加上is試試﹐如下﹕ ADODataSet1.filter:='address is not like ' quotedstr('%武%'); 參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

程式不是不能執行，而是執行有錯誤，"引數可能有類型錯誤，或超過可接受的定義範圍，或與其它引數衝突。" 謝謝!

在網路上繞了一下, 真的找不到解決方法, pcernet兄可能要是是在 OnFilterRecord上面動手了 比較相近的問題http://www.mers.com/cgi-bin/mer.exe/EXECSEARCH?searchtext=Filter+property+Like&grouptext=Delphi&pageno=10&msgno=11863&boardno=1840&linktype=vwthread

ADODataSet1.Open;
ADODataSet1.Filtered := False;
ADODataSet1.Filtered := True;    procedure TForm1.ADODataSet1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
   Accept :=  Pos('武', FieldByName('Address').AsString) =0;
end;

我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

Miles兄真有心，在此謝過。 1.使用Onfilter會無法讓 Recordcount 的值有效. 2.覺得 not like 應該是SQL合理的用法. 再次感謝您。