最简单的分组报表显示“第几页，共几页”

huang1314

网上找到的看起来最简单的分组报表显示第几页，共几页复制代码来用打死不出这样效果，高手来看看什么回事啊




复制代码好象不执行循环

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

复制代码