老师，像这种分页打印，如果想在每一页加一个数量的小计，请问代码如何修改？
Dim t As Table = e.Form.Controls("Table1").Table
Dim ps As Integer = Math.Ceiling(t.Rows.count / 15)
For i As Integer = 1 To ps
Dim idxs As String = ""
t.Filter = ""
For j As Integer = (i-1)*15 To i*15-1
If j >= t.Rows.count Then
Exit For
End If
idxs &= "'" & t.Rows(j)("itemno") & "',"
Next
t.Filter = "itemno in (" & idxs.trim(",") & ")"
e.Form.Controls("Label40").Text = "页码 第 " & i & " 页 ; 共 " & ps + e.Form.Controls("NumericComboBox2").value & " 页"
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()
Next
t.Filter = ""
加好友 
发短信
Post By：2018/1/29 7:23:00 [显示全部帖子]
