如何将Ehlib的第一列设置成显示"合计"字符,第二列设置成显示"记录数",第三列设置成显示字段合计值
",
",
解决方案 »
- delphi 怎么获取excel文件名?
- 怎样读取记事本的每一行信息到DELPHI中的memo1中
- 数据行排序
- 请教 ClientDataSet--------> AppendData 的奇怪问题
- 在delphi中怎么实现文件拷贝?
- CreateProcess函数为什么没有执行呢!!!
- 请问------------回调函数如何用?
- 向各位请教
- 建立本地数据库(表)用database/parodox 还是Access 通用性好呢?另:database怎么也有Access可选呢?(做一个Mis系统要带到学校给老师查,考虑到整个东西的大小及数据引擎的配置)
- 什么地方有正式版KYLIX下载?
- 有什么命令可以清除dbgrid里的数据,让dbgrid 回到初始状态
- 可以通过程序控制摄像头的焦距和偏转吗?如果有,请顺便提供可以这样二次开发的摄像头的品牌,谢谢!
begin
FooterRowCount := 0;
Columns[0].Footer.ValueType := fvtStaticText;
Columns[0].Footer.Value := '合计:';
Columns[0].Footer.Alignment := taCenter;
Columns[0].Title.Alignment := taCenter;
end;
当然,DBGrid的属性SumList.Active=True
设置每列的脚注 myGrid.SumList.Active:=true;
myGrid.FooterRowCount:=1;
myGrid.FooterColor:=clAqua; for i:=0 to myGrid.Columns.Count-1 do
begin
myGrid.Columns[i].Footers.Add;
if i=0 then
begin
myGrid.Columns[i].Footers[0].Value:='合 计';
myGrid.Columns[i].Footers[0].ValueType:=fvtStaticText;
end else
if (myGrid.Columns[i].Field.DataType=ftFloat)
or (myGrid.Columns[i].Field.DataType=ftInteger) then
begin
myGrid.Columns[i].Footers[0].FieldName:=myGrid.Columns[i].FieldName;
myGrid.Columns[i].Footers[0].ValueType:=fvtSum;
end;
end;