BuildGroupFooter

生成某个分组尾后执行。

e参数属性：

Book：      返回工作簿
TableName:  字符型，返回分组的表名
ColumnName：字符型，返回分组的列名
GroupRows： 返回一个DataRows集合，包括此分组的所有行
TotalRows： 返回一个DataRows集合，包括截止到此分组为止，所有已经打印的行

示例

假定针对订单表设计了一个报表模板，根据客户进行分组，希望在每个分组尾打印该客户已结账和未结账金额小计。

实现步骤

1、设计报表模版的时候，在分组尾插入两个标签：<已结账>、<未结账>。

2、在BeforeBuild事件中，将两个标签插入到Marks集合：

Select Case e.Book.TempLate
    Case "模板名称"
        e.Book.Marks.Add("已结账", 0)
        e.Book.Marks.Add("未结账", 0)
End Select

3、在BuildGroupFooter事件中加入代码：

Select Case e.Book.TempLate
    Case "模板名称"
        Dim Sum1, Sum2 As Double
        For Each dr As DataRow In e.GroupRows
            If dr("已结账") = True
                Sum1 = Sum1 + dr("金额")
            Else
                Sum2 = Sum2 + dr("金额")
            End If
        Next
        e.Book.Marks("已结账") = Sum1
        e.Book.Marks("未结账") = Sum2
End Select

本页地址：http://www.foxtable.com/webhelp/topics/1959.htm