再一次麻烦伴水，如何使用代码使用 tadoquery.filteroptions,请详细一些

Question

我看了help
var
   s : TFilterOptions
begin
   s := [foNoPartialCompare];  ---->调试到此处报错
   ........ 
end;

Answer 1

请 kangyinglai(抗抗)　，括号如何加，示范一下：
我的如下：
var
  s : TFilterOptions
begin
  s := [foNoPartialCompare];  ---->还是调试到此处报错
  XXXX.filteroptions := s;
  xxxx.filter := 'xxxxx';
  xxxx.filter.filtered := true
  ........ 
end; 

Answer 2

var
  s:TFilterOptions;
begin
  s:=[(foNoPartialCompare)];

Answer 3

EDatabaseError with message "不支持 FilterOptions"Process StoppedDelphi6.0 + sql2000 

Answer 4

//SQL2000不支持
//换成其他方式吧begin
  ADOTable1.Filtered := False;
  ADOTable1.Filter := 'Field1 Like ''%你好%''';
  ADOTable1.Filtered := True;
end;

Answer 5

http://www.csdn.net/expert/topic/495/495189.shtm
资源共享看看啊