注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

gb.qin

A Man's心靈的港灣

 
 
 

日志

 
 

cxGrid类似Excel复合筛选(集)  

2009-04-27 09:39:36|  分类: Delphi |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

出自 My co-worker http://hi.baidu.com/liferecord 书品人生

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;

  评论这张
 
阅读(172)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017