过滤条件不执行

[baidu_36063547]

procedure TFrm_SignCJSel.CDS_CJListFilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin //这里面不执行
Accept := DataSet.FieldByName('IsUsed').asinteger = 1;
Accept :=Accept and ( (Pos(UpperCase(FlagStr), UpperCase(StrsOP.GetHZPY(DataSet.FieldByName('CJName').AsString))) > 0) or (Pos(FlagStr, DataSet.FieldBYName('OrderID').AsString) > 0));
end;

procedure TFrm_SignCJSel.FormShow(Sender: TObject);
begin
CDS_CJList.Filtered := False;
CDS_CJList.Filtered := True;
end;

[leeky]

专门弄个按钮测试一下吧，代码： CDS_CJList.Filtered := not CDS_CJList.Filtered; 跟踪进去就知道你代码是否有问题 了。

[baidu_36063547]

引用 1 楼 leeky 的回复:

专门弄个按钮测试一下吧，代码： CDS_CJList.Filtered := not CDS_CJList.Filtered; 跟踪进去就知道你代码是否有问题 了。

这个问题我解决了，但是； 出现了新问题 ，不能跟踪了

[leeky]

检查有没有循环调用的情况，比如控件A的事件触发了对控件B的操作，控件B的事件又触发对控件A的操作。