【搞定】[请求]数据集过滤问题！**

rzport_jqf

问题： 在数据集上设置过滤条件， 但是不起作用。请帮忙分析， 谢谢！

代码如下：

procedure TMainForm.BizFormCreate(Sender: TObject);
var
   strWhere:string;
   strFilter:string;
begin
        // strWhere:='select * from CPB01';

         strWhere:='select * from KHJBXX01';      
         Tsqldataset(DataSetBroker1.DataSet).SQL.Clear;
         Tsqldataset(DataSetBroker1.DataSet).SQL.Text:=strWhere;

         strFilter:='1=1';
         strFilter:=strFilter+' and CustomerName=''kh1''';

         Tsqldataset(DataSetBroker1.DataSet).Filtered:=true;
         Tsqldataset(DataSetBroker1.DataSet).SQLFilter:=strFilter;

         DataSetBroker1.DataSet.Open;
         DataSetBroker1.DataSet.first;

         //....................
         //....................

         DataSetBroker1.DataSet.Close;



end;

Akon

Tsqldataset(DataSetBroker1.DataSet).Filtered:=true;
         Tsqldataset(DataSetBroker1.DataSet).SQLFilter:=strFilter;

改成
         Tsqldataset(DataSetBroker1.DataSet).SQLFilter:=strFilter;
   Tsqldataset(DataSetBroker1.DataSet).Filtered:=true;

rzport_jqf

改了后还是不行的

Akon

你的查询语句中加的
strFilter:='1=1';
有什么用的?

lixy

是否是功能上有数据策略设置了？

tdwoo

Tsqldataset(DataSetBroker1.DataSet).Filtered:=true;
         Tsqldataset(DataSetBroker1.DataSet).SQLFilter:=strFilter;

改成
         Tsqldataset(DataSetBroker1.DataSet).SQLFilter:=strFilter;
   Tsqldataset(DataSetBroker1.DataSet).SQLFiltered:=true;

atiger

把代码放到Form 的OnShow事件上或者某个按钮上看看

rzport_jqf

最初由 Akon 发布
[B]你的查询语句中加的
strFilter:='1=1';
有什么用的? [/B]

初始化查询条件为真。

atiger

回复8楼，其实加与不加，效果是一样的。

rzport_jqf

最初由 lixy 发布
[B]是否是功能上有数据策略设置了？ [/B]

没有作策略的。