FrmSearchResult:=TfrmSearchResult.create(self);
frmSearchResult.datasource1.DataSet:=nil;
frmSearchResult.datasource1.DataSet:=QSearchResult; frmSearchResult.dxDBGrid1.CreateDefaultColumns(QSearchResult,self);
for i:=0 to listv3.Items.Count-1 do
begin
if listv3.Items [i].SubItems[2]<>'' then
begin
frmSearchResult.dxDBGrid1.Columns[i].summaryfooterfield:=listv3.Items [i].SubItems[2];
if listv3.Items [i].SubItems[2]='求和' then
begin
frmSearchResult.dxDBGrid1.Columns[i].summaryfooterformat:='合计:0.000';
frmSearchResult.dxDBGrid1.Columns[i].summaryfootertype:=cstSum;
end
else
if listv3.Items [i].SubItems[2]='计数' then
begin
frmSearchResult.dxDBGrid1.Columns[i].summaryfooterformat:='共0条记录';
frmSearchResult.dxDBGrid1.Columns[i].summaryfootertype:=cstCount;
end
else
if listv3.Items [i].SubItems[2]='最大值' then
begin
frmSearchResult.dxDBGrid1.Columns[i].summaryfooterformat:='最大值:0.000';
frmSearchResult.dxDBGrid1.Columns[i].summaryfootertype:=cstMax;
end
else
if listv3.Items [i].SubItems[2]='最小值' then
begin
frmSearchResult.dxDBGrid1.Columns[i].summaryfooterformat:='最小值:0.000';
frmSearchResult.dxDBGrid1.Columns[i].summaryfootertype:=cstMin;
end
else
if listv3.Items [i].SubItems[2]='平均' then
begin
frmSearchResult.dxDBGrid1.Columns[i].summaryfooterformat:='平均值:0.000';
frmSearchResult.dxDBGrid1.Columns[i].summaryfootertype:=cstAvg;
end;
end;
end;
frmSearchResult.dxDBGrid1.KeyField:=dxdbgrid1.Columns[0].FieldName;
frmSearchResult.showmodal;运行后没有对数据进行处理,不知还欠缺什么
frmSearchResult.datasource1.DataSet:=nil;
frmSearchResult.datasource1.DataSet:=QSearchResult; frmSearchResult.dxDBGrid1.CreateDefaultColumns(QSearchResult,self);
for i:=0 to listv3.Items.Count-1 do
begin
if listv3.Items [i].SubItems[2]<>'' then
begin
frmSearchResult.dxDBGrid1.Columns[i].summaryfooterfield:=listv3.Items [i].SubItems[2];
if listv3.Items [i].SubItems[2]='求和' then
begin
frmSearchResult.dxDBGrid1.Columns[i].summaryfooterformat:='合计:0.000';
frmSearchResult.dxDBGrid1.Columns[i].summaryfootertype:=cstSum;
end
else
if listv3.Items [i].SubItems[2]='计数' then
begin
frmSearchResult.dxDBGrid1.Columns[i].summaryfooterformat:='共0条记录';
frmSearchResult.dxDBGrid1.Columns[i].summaryfootertype:=cstCount;
end
else
if listv3.Items [i].SubItems[2]='最大值' then
begin
frmSearchResult.dxDBGrid1.Columns[i].summaryfooterformat:='最大值:0.000';
frmSearchResult.dxDBGrid1.Columns[i].summaryfootertype:=cstMax;
end
else
if listv3.Items [i].SubItems[2]='最小值' then
begin
frmSearchResult.dxDBGrid1.Columns[i].summaryfooterformat:='最小值:0.000';
frmSearchResult.dxDBGrid1.Columns[i].summaryfootertype:=cstMin;
end
else
if listv3.Items [i].SubItems[2]='平均' then
begin
frmSearchResult.dxDBGrid1.Columns[i].summaryfooterformat:='平均值:0.000';
frmSearchResult.dxDBGrid1.Columns[i].summaryfootertype:=cstAvg;
end;
end;
end;
frmSearchResult.dxDBGrid1.KeyField:=dxdbgrid1.Columns[0].FieldName;
frmSearchResult.showmodal;运行后没有对数据进行处理,不知还欠缺什么
解决方案 »
- 三层开发如何使用多线程调用接口函数?大家帮帮忙,在线等待……
- 重賞之下,可有勇夫? 100分不夠再加! 問:如何使程序不被強行關閉?(不是說不出現在任務管理器中)
- 一个小问题
- 连续散分10天 (2)
- 庆祝,这猴年马月的第一件好事情----海天子的病情转好,感谢所有帮忙过我的人,特别是不死鸟!!!
- 句柄(handle)到底怎么掌握呀!能否举几个具体的事例来说明一下,小弟非常感谢!
- 难道没有人知道talbe 的记录数怎么获取啊?
- 一个自编的数据感知控件不能放入TDBCtrlGrid中,为何?谢谢!
- 请问如何把报表另存为EXCEL格式的文件??
- delphi的数据类型转换如何用?
- 急需,在Delphi如何调用WIN32 API函数(如:copyfile),多谢了!!
- 【关键词:类型转换&&自定义结构/Class&&容器】求解,描述见内.【速】
To: Cipherliu(孤鹰) ( ) 信誉:105 虚心请教该如何写??