- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于piao据打印的分页小计 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=93847)
-- 发布时间：2016/12/8 15:10:00
-- 关于piao据打印的分页小计
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:票据设计.foxdb |
构造一个项目来说明我求助的问题：
票据窗口表最大行数设为4，本例表有7行记录，这样打印预览时将分为2页来打印。问题是每个打印页如何计算显示出每页的小计？
-- 发布时间：2016/12/8 16:11:00
--
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Dim idx As Integer = 0
Dim idx2 As Integer = 0
Dim t As Table = e.Form.Controls("Table1").Table
For Each c As object In Doc.Body.Children
If Typeof c Is prt.RenderText Then
If c.text = "数量和1" Then
Dim count As Double = 0
For i As Integer = idx To idx + 3
count += val(t.Rows(i)("数量"))
Next
c.text = cstr(count)
idx += 4
ElseIf c.text = "金额和1" Then
Dim count As Double = 0
For i As Integer = idx2 To idx2 + 3
count += val(t.Rows(i)("金额"))
Next
c.text = cstr(count)
idx2 += 4
End If
End If
Next
doc.Preview()