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;