跨页多联报表例子

咱家是猫

记得这是我在Access擂台区发起的一个竞赛,记得事后一直未分享MDB,现在发上来共享之.

1. Option Compare Database
   
2. Option Explicit
   
3. Private LngA As Long, LngB As Long
   
4. Private lngRows As Long
   
5. 'BStr常量字符串为此报表右则需要标注的信息,此字符串长度需参照固定行数
   
6. Private Const BStr = "白联:财务 红联:客户 黄联:留底"
   
7. Private myASum As Double '本页合计
   
8. Private myBSum As Double '总计
   
9. 
   
10. Private Sub 页面页眉_Print(Cancel As Integer, PrintCount As Integer)
    
11. 
    
12. LngB = 0: myASum = 0
    
13. If Me.Pages <> 1 Then
    
14. Me.出库单 = Me.出库单号 & "-" & Me.Page
    
15. Else
    
16. Me.出库单 = Me.出库单号
    
17. End If
    
18. 
    
19. End Sub
    
20. 
    
21. Private Sub 主体_Print(Cancel As Integer, PrintCount As Integer)
    
22. 
    
23. Dim intAllRows As Integer
    
24. Dim objCtl As Control
    
25. 
    
26. LngA = LngA + 1: LngB = LngB + 1
    
27. Me.BLabel.Caption = GetBL(LngB)
    
28. 
    
29. lngRows = 20
    
30. If intAllRows = 0 Then
    
31. If txtTotGrp Mod lngRows = 0 Then
    
32. intAllRows = txtTotGrp
    
33. Else
    
34. intAllRows = (Fix(txtTotGrp / lngRows) + 1) * lngRows
    
35. End If
    
36. End If
    
37. If LngA <= txtTotGrp Then
    
38. For Each objCtl In Me.Section(0).Controls
    
39. If objCtl.ControlType = acTextBox Then
    
40. With objCtl
    
41. .Visible = True
    
42. End With
    
43. End If
    
44. Next objCtl
    
45. myASum = myASum + Me.金额 '累计金额(本页小计)
    
46. myBSum = myBSum + Me.金额 '累计金额(总计)
    
47. Else
    
48. If LngA = intAllRows + 1 Then LngA = 1
    
49. For Each objCtl In Me.Section(0).Controls
    
50. If objCtl.ControlType = acTextBox Then
    
51. With objCtl
    
52. .Visible = False
    
53. End With
    
54. End If
    
55. Next objCtl
    
56. End If
    
57. If txtTotGrp < intAllRows Then
    
58. If LngA < txtTotGrp Then
    
59. Me.NextRecord = True
    
60. ElseIf (LngA >= txtTotGrp And LngA < intAllRows) Then
    
61. Me.NextRecord = False
    
62. Else
    
63. Me.NextRecord = True
    
64. End If
    
65. Else
    
66. Me.NextRecord = True
    
67. End If
    
68. 
    
69. End Sub
    
70. 
    
71. Private Sub 页面页脚_Format(Cancel As Integer, FormatCount As Integer)
    
72. 
    
73. Me.总计标签.Visible = (Me.Page = Me.MyPages)
    
74. Me.大写总计.Visible = (Me.Page = Me.MyPages)
    
75. Me.小写总计.Visible = (Me.Page = Me.MyPages)
    
76. Me.MyPageTipText.Visible = (Me.Page < Me.MyPages)
    
77. Me.小写小计 = "￥" & myASum
    
78. Me.大写小计 = "(大写)" & UCaseCur(myASum, 1)
    
79. If Me.Page = Me.MyPages Then
    
80. Me.小写总计 = "￥" & myBSum
    
81. Me.大写总计 = "(大写)" & UCaseCur(myBSum, 1)
    
82. End If
    
83. 
    
84. End Sub
    
85. 
    
86. Function GetBL(I As Long) As String
    
87. GetBL = Mid(BStr, I, 1)
    
88. End Function
    
89. 
    

复制代码

daxin1

哈哈

liaohk

sxb2007

谢谢分享！！

冚友

学习学习~

yanwei82123300

谢谢分享！！

gaofei186

看看一下

xie62

谢谢分享！！

轻风

猫哥这几天大发慈悲，一口气发上这么多实例。

xuwenning

收藏了
谢谢分享