cxgrid or condition filter (或条件过滤)

最新推荐文章于 2023-03-01 18:29:45 发布

踏雪无痕

最新推荐文章于 2023-03-01 18:29:45 发布

阅读量2.4k

点赞数 1

分类专栏： Delphi代码类

Delphi代码类专栏收录该内容

64 篇文章 3 订阅

订阅专栏

procedure TShangPinSelectForRuKuFam.SearchRec;
//取得过滤器
Function GetFilter: TcxdbDataFilterCriteria;
begin
result := ( cxGrid1DBTableView1.DataController.Filter as TcxdbDataFilterCriteria );
end;
var
searchv: string;
filter: TcxDBDataFilterCriteria;

begin
if not ( csDesigning in Self.ComponentState ) then
begin
    searchv := '%'+vartostr(EdtSearch.EditingText)+'%';
    filter := GetFilter;
    with filter do
    begin
        filter.Clear;
        filter.Active := False;
        FFilterCriteriaItem := (Root.AddItem(cxGrid1DBTableView1PinYin ,foLike , searchv ,searchv) as TcxDBDataFilterCriteriaItem);
        Root.BoolOperatorKind := fboOr; //关键操作
        //Root.AddItemList(fboOr);
        Root.AddItem(cxGrid1DBTableView1MingCheng,foLike ,searchv ,searchv);
        //filter.FilterText := ' PinYin like ''%' + searchv + '''';
        filter.Active := True;
    end;
end;
end;