delphi 中设定合计行信息的一段代码

最新推荐文章于 2024-01-29 14:46:31 发布

gogome

最新推荐文章于 2024-01-29 14:46:31 发布

阅读量1.1k

点赞数

分类专栏： text 文章标签： delphi string integer 网格

本文链接：https://blog.csdn.net/gogome/article/details/631955

版权

这段代码展示了如何在Delphi中为DBGridEh设置总计行信息。通过指定字段列表和统计类型，可以为网格的列添加合计、平均值等统计功能。示例中展示了如何设定数量和金额字段的合计统计。

摘要由CSDN通过智能技术生成

//--------------------------------------------------------------------------------
// 功能：设定 DbGridEh 合计行信息
// 参数： pDbGrid:TDBGridEh;
//        pcFields : string ; 字段列表，字段用逗号分隔
//        pvtType : TFooterValueType ; 统计类型 TFooterValueType = (fvtNon, fvtSum, fvtAvg, fvtCount, fvtFieldValue, fvtStaticText);
// 引用：StrToStringList
// 例如：DbGridEhFoot( DbGridEh1, 'Number,Sum', fvtSum ); 设定数量和金额字段为合计统计
//--------------------------------------------------------------------------------
Procedure DbGridEhFoot( pDbGrid:TDBGridEh; pcFields: string; pvtType : TFooterValueType );
var nFldLoop : integer ;
    cFieldName : string ;
    tmpFldList : TStrings ;
begin
pDbGrid.FooterRowCount := 1;    // 指定网格尾部统计行行数
pDbGrid.SumList.Active := true;   // 激活统计
pDbGrid.FooterColor    := clBtnFace ; // 指定统计行颜色

tmpFldList := TStringList.Create ;
StrToS