cxgrid类似于EXCEL的筛选功能的制作

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
   adoquery1.Open ;
   cxgrid1dbtableview1.DataController.CreateAllItems ;//  根据打开的数据源自动生成column
   for i:=0 to cxgrid1dbtableview1.ColumnCount -1 do
      begin
      //showmessage(cxgrid1dbtableview1.Columns[i].DataBinding.ValueType);
      cxgrid1dbtableview1.Columns[i].Width :=cxgrid1.Width div(cxgrid1dbtableview1.ColumnCount-1);
        if  cxgrid1dbtableview1.Columns[i].DataBinding.ValueType ='Integer' then  //根据数据类型生成是否要汇总的项目
           begin
              cxgrid1dbtableview1.BeginUpdate ;
             // showmessage('dgf');
               with cxgrid1dbtableview1.DataController.Summary.FooterSummaryItems.Add as tcxgriddbtablesummaryitem do
                 begin
                   column:=cxgrid1dbtableview1.Columns[i];
                   kind:=sksum;
                   format:='0';
                 end;
              cxgrid1dbtableview1.EndUpdate ;
           end;
      end;

end;

procedure TForm1.cxGrid1DBTableView1DataControllerFilterBeforeChange(
  Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet;
  const AFilterText: String);
begin  //类似于EXCEL的数据筛选方法
    Adataset.Filter :=afiltertext;
    cxgrid1dbtableview1.Filtering.ColumnMRUItemsList:=false;
    adataset.Filtered :=true;
    cxgrid1dbtableview1.Filtering.ColumnMRUItemsList:=true;
end;