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

最新推荐文章于 2021-07-19 23:30:29 发布

iteye_11002

最新推荐文章于 2021-07-19 23:30:29 发布

阅读量212

点赞数

本文介绍了一个使用 Delphi 实现的数据表格自适应宽度布局及数据汇总的方法，并展示了如何通过简单的代码实现类似 Excel 的数据筛选功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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;