Table打印时如何实现页合计和总合计？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

文件的报表代码有一些问题，用下面的：

Dim doc As New PrintDoc
Dim tb as Table = Tables("订单")
Dim ColNames As String() = New String(){"产品", "日期", "数量"}
Dim PageRows As integer = 30 '每页打印30行
Dim Pages As Integer = Math.Ceiling(tb.Rows.Count / PageRows) '获得总页数
Dim Sum As Integer
For Page As integer = 0 To Pages -1
    Dim StartRow As Integer = Page * PageRows
    Dim EndRow As integer = Math.Min((Page + 1) * PageRows - 1,tb.Rows.Count - 1)
    Sum = 0
    Dim rt As New prt.RenderTable
    For c As Integer = 0 To ColNames.Length - 1
        rt.Cells(0,c).Text = ColNames(c)
    Next
    For r As integer = StartRow to EndRow
        Sum = Sum + tb.rows(r)("数量")
        For c As Integer = 0 To ColNames.Length - 1
            rt.Cells(r - StartRow + 1, c).Text = tb.Rows(r)(ColNames(c))
        Next
    Next
    rt.Style.Gridlines.All = New prt.Linedef(Color.Gray)
    doc.Body.Children.Add(rt)
    Dim rx As New prt.RenderText
    rx.Text = "数量合计: " & Sum
    rx.Style.Spacing.Top = 5
    If EndRow < tb.Rows.Count - 1 Then
        rx.BreakAfter = prt.BreakEnum.Page
    End If
    doc.Body.Children.Add(rx)
Next
doc.Preview()

贺老六	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：超级版主帖子：485 积分：2996 威望：0 精华：10 注册：2008/9/12 14:37:00	Post By：2008/10/6 11:16:00 [显示全部帖子] 您无权查看精华帖子
	[本帖被加为精华]

主题：Table打印时如何实现页合计和总合计？