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