设定 DbGridEh 合计行信息

//--------------------------------------------------------------------------------
// 功能：设定 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 ;
  strtostringlist( uppercase(pcfields),',',tmpfldlist );  // 将字符串转换为串列表

  for nfldloop := 0 to pdbgrid.columns.count -1 do
  begin
      cfieldname := pdbgrid.columns[nfldloop].fieldname ;  // 网格列字段名
      if tmpfldlist.indexof( uppercase( cfieldname ) ) >= 0 then
      begin
         pdbgrid.columns[nfldloop].footer.valuetype := pvttype ;  // 统计类型
      end;
  end ;
  tmpfldlist.free ;
end;