- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- Table打印时如何实现页合计和总合计？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=757)
-- 发布时间：2008/10/1 8:51:00
-- Table打印时如何实现页合计和总合计？
Table打印时（不是报表打印），能否在每一页的最下面一行打印数值列的页合计？以及在最后一页打印数值列的总合计？，这种需求是很经常遇到的。注意当打印的是选定行（不是全部行）时，总合计应合计实际打印的行，而不是表的全部行。
[此贴子已经被作者于2008-10-1 22:17:36编辑过]
-- 发布时间：2008/10/2 9:18:00
--
(个人理解)要自已做报表，猜不太可能在表打印中能实现:
表的打印设置中只支持几个特殊编码
[此贴子已经被作者于2008-10-2 9:35:53编辑过]
-- 发布时间：2008/10/2 22:38:00
--
尽管Table的打印不像报表打印那么复杂，但在每一张加个页合计，在最后一页加一个总合计，这在实际中是很常用的功能！让系统自动生成应该也没有太大的难度，但若系统不提供这个功能，打印出来再手工用计算器来加，估计工作量可不小啊！希望贺老师认真考虑！
-- 发布时间：2008/10/6 10:39:00
--
贺老师，这个问题好不好实现？
-- 发布时间：2008/10/6 11:16:00
--
一切皆有可能，我做了一个简单的例子，每页打印30行，每页最后加上数量汇总，你可以参考一下：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目23.table |
[此贴子已经被作者于2008-10-6 11:31:21编辑过]
-- 发布时间：2008/10/6 11:30:00
--
文件的报表代码有一些问题，用下面的：
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()
-- 发布时间：2008/10/6 12:29:00
--
不错，学习了！
-- 发布时间：2008/10/6 13:03:00
--
以下是引用贺老六在2008-10-6 11:30:00的发言：
文件的报表代码有一些问题，用下面的：
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()
文件的报表代码有一些问题，用下面的：
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()
试过了，老六一出手，肯定可以实现，但我的意思不是这样。我的建议是，只要点菜单上的打印时，就自动合计当前表的当前视图的每个数值列的页合计和总合计，别让我们再写30多行的代码了，只需要对表增加一项属性“打印时是否打印页合计”就可以了，这样既可以自动实现，也不会影响不需要打印合计的情况！这是很常用、使用频率很高的功能，不应该让每个用户在每次使用时都反复编写这几十行代码，直接加在系统的功能上，您的一次辛苦，方便了所有人，节约了所有人的时间，岂不更好吗？
-- 发布时间：2008/10/6 13:06:00
--
问题不是这么简单，这个是必须写代码的。
代码是通用的，复制过来，改改列名就行，当然能自己理解就好。
-- 发布时间：2008/10/6 13:16:00
--
以下是引用狐狸爸爸在2008-10-6 13:06:00的发言：
问题不是这么简单，这个是必须写代码的。
代码是通用的，复制过来，改改列名就行，当然能自己理解就好。
问题不是这么简单，这个是必须写代码的。
代码是通用的，复制过来，改改列名就行，当然能自己理解就好。
没有太明白，既然代码是通用的，只是引用的列名不同，写到系统中应该是很简单的，怎么会不能加到系统中呢？