Office中国论坛/Access中国论坛

标题: 最简单的分组报表显示“第几页，共几页” [打印本页]

---

作者: huang1314    时间: 2015-4-4 18:35
标题: 最简单的分组报表显示“第几页，共几页”
网上找到的看起来最简单的分组报表显示第几页，共几页复制代码来用打死不出这样效果，高手来看看什么回事啊
[attach]56079[/attach]

[attach]56079[/attach]

复制代码好象不执行循环

1. Option Compare Database
   
2. Dim GrpArrayPage(), GrpArrayPages()
   
3. Dim GrpNameCurrent As Variant, GrpNamePrevious As Variant
   
4. Dim GrpPage As Integer, GrpPages As Integer
   
5. 
   
6. Private Sub 页面页脚_Format(Cancel As Integer, FormatCount As Integer)
   
7. Dim I As Integer
   
8. If Me.Pages = 0 Then   '准备资料时计算各群组页数
   
9.     ReDim Preserve GrpArrayPage(Me.Page + 1)
   
10.    ReDim Preserve GrpArrayPages(Me.Page + 1)
    
11.     GrpNameCurrent = Me![工程名称]    '取得现用群组字段之值
    
12.     If GrpNameCurrent = GrpNamePrevious Then '如果现用群组大于1页
    
13.         GrpArrayPage(Me.Page) = GrpArrayPage(Me.Page - 1) + 1
    
14.         GrpPages = GrpArrayPage(Me.Page)
    
15.         For I = Me.Page - ((GrpPages) - 1) To Me.Page
    
16.             GrpArrayPages(I) = GrpPages
    
17.         Next I
    
18.     Else                             '如果现用群组只有1页
    
19.         GrpPage = 1
    
20.        GrpArrayPage(Me.Page) = GrpPage
    
21.         GrpArrayPages(Me.Page) = GrpPage
    
22.     End If
    
23. Else              '打印
    
24.      Me![组页码].Caption = "工程名称为：" & [工程名称] & "  第" & _
    
25.                 GrpArrayPage(Me.Page) & "页，共" & GrpArrayPages(Me.Page) & "页"
    
26. End If
    
27. GrpNamePrevious = GrpNameCurrent
    
28. End Sub
    
29. 
    
30. Private Sub Report_Page()
    
31. GrpPage = 0
    
32. GrpPages = 0
    
33. GrpNameCurrent = ""
    
34. GrpNamePrevious = ""
    
35. End Sub

复制代码

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3