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

最新推荐文章于 2025-07-03 10:25:45 发布

原创最新推荐文章于 2025-07-03 10:25:45 发布 · 1.4k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#excel #integer #string #div

delphi-cxgrid 专栏收录该内容

6 篇文章

订阅专栏

本文介绍使用 Delphi 实现数据网格展示及自动汇总功能的方法。通过 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;