设定 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;