主题：EXCEL报表关联表分组打印

这个意思？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:订单表.xls

buildDetail事件，写代码

Select Case e.Book.TempLate
    Case "订单表"
        If e.Region = "订单主表" Then
            Vars.Add("第N页",Gettype(String))
            vars("第几页") = 1
            vars("第N页") = "第" & vars("第几页") & "页"
            Dim drs = e.DataRow.GetChildRows("订单明细表")
            Dim phs As new Dictionary(of String, Integer)
            For Each dr As DataRow In drs
                If phs.ContainsKey(dr("品名")) Then
                    phs(dr("品名")) += 1
                Else
                    phs.Add(dr("品名"), 1)
                End If
            Next
            Dim sum As Integer = 0
            For Each key As String In phs.Keys
                sum += math.Ceiling(phs(key) / 9)
            Next
            vars("总页数") = "共" & sum & "页"
            e.Book.Marks("页次") = vars("第N页") & "/" & vars("总页数")
        End If
End Select