跨頁多聯(lián)報(bào)表例子

咱家是貓

記得這是我在Access擂臺(tái)區(qū)發(fā)起的一個(gè)競賽,記得事后一直未分享MDB,現(xiàn)在發(fā)上來共享之.

1. Option Compare Database
   
2. Option Explicit
   
3. Private LngA As Long, LngB As Long
   
4. Private lngRows As Long
   
5. 'BStr常量字符串為此報(bào)表右則需要標(biāo)注的信息,此字符串長度需參照固定行數(shù)
   
6. Private Const BStr = "白聯(lián):財(cái)務(wù) 紅聯(lián):客戶 黃聯(lián):留底"
   
7. Private myASum As Double '本頁合計(jì)
   
8. Private myBSum As Double '總計(jì)
   
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.出庫單號(hào) & "-" & Me.Page
    
15. Else
    
16. Me.出庫單 = Me.出庫單號(hào)
    
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.金額 '累計(jì)金額(本頁小計(jì))
    
46. myBSum = myBSum + Me.金額 '累計(jì)金額(總計(jì))
    
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.總計(jì)標(biāo)簽.Visible = (Me.Page = Me.MyPages)
    
74. Me.大寫總計(jì).Visible = (Me.Page = Me.MyPages)
    
75. Me.小寫總計(jì).Visible = (Me.Page = Me.MyPages)
    
76. Me.MyPageTipText.Visible = (Me.Page < Me.MyPages)
    
77. Me.小寫小計(jì) = "￥" & myASum
    
78. Me.大寫小計(jì) = "(大寫)" & UCaseCur(myASum, 1)
    
79. If Me.Page = Me.MyPages Then
    
80. Me.小寫總計(jì) = "￥" & myBSum
    
81. Me.大寫總計(jì) = "(大寫)" & 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. 
    

復(fù)制代碼

daxin1

哈哈

liaohk

sxb2007

謝謝分享�。�

冚友

學(xué)習(xí)學(xué)習(xí)~

yanwei82123300

謝謝分享��！

gaofei186

看看一下

xie62

謝謝分享��！

輕風(fēng)

貓哥這幾天大發(fā)慈悲，一口氣發(fā)上這么多實(shí)例。

xuwenning

收藏了
謝謝分享