如何在报表的组页脚显示“第x页，共y页”？

wuaza

如何在报表的组页脚显示“第x页，共y页”？

在页面页脚可以用"第"&

tz-chf

northwind——各国雇员销售额

wwwwa

到目前为止，还没有直接

的方法做到

sgrshh29

以下是引用wuaza在2006-3-29 11:54:00的发言：


如何在报表的组页脚显示“第x页，共y页”？

在页面页脚可以用"第"&&"页，共"&[pages]&"页"，这个我知道。

因为我每一组是分开装订的，所以需要知道每一组的总页数和当前页数，这个在报表中该怎么显示？

这是一个比较烦的事情,要用vba实现.示例希望对你有参考作用.

wuaza

sgrshh29你的实例真是太棒了，多谢！

winner

好东西!这几天我也一直在搞这个问题,又是建临时表,又是追加删除的,麻烦死了,谢谢共享!

winner

奇怪,我在我的数据库上写例子的代码,居然显示为空,为什么会这样?而且为什么代码里有行号,删掉行吗?

winner

我只改了红色部分:

Option Compare Database
Dim GrpArrayPage(), GrpArrayPages()
Dim GrpNameCurrent As Variant, GrpNamePrevious As Variant
Dim GrpPage As Integer, GrpPages As Integer
Private Sub 页面页脚_Format(Cancel As Integer, FormatCount As Integer)
1001 Dim I As Integer
1002 If Me.Pages = 0 Then   '准备资料时计算各群组页数
1003    ReDim Preserve GrpArrayPage(Me.Page + 1)
1004    ReDim Preserve GrpArrayPages(Me.Page + 1)
1005    GrpNameCurrent = Me![WareHouse]    '取得现用群组字段之值
1006    If GrpNameCurrent = GrpNamePrevious Then '如果现用群组大于1页
1007        GrpArrayPage(Me.Page) = GrpArrayPage(Me.Page - 1) + 1
1008        GrpPages = GrpArrayPage(Me.Page)
1009        For I = Me.Page - ((GrpPages) - 1) To Me.Page
1010            GrpArrayPages(I) = GrpPages
1011        Next I
1012    Else                             '如果现用群组只有1页
1013        GrpPage = 1
1014        GrpArrayPage(Me.Page) = GrpPage
1015        GrpArrayPages(Me.Page) = GrpPage
1016    End If
1017 Else              '打印
1018     Me![PageNo].Caption = "  第 " & GrpArrayPage(Me.Page) & " 页，共 " & GrpArrayPages(Me.Page) & " 页"
1019 End If
1020 GrpNamePrevious = GrpNameCurrent

End Sub
Private Sub Report_Page()
GrpPage = 0
GrpPages = 0
GrpNameCurrent = ""
GrpNamePrevious = ""
End Sub

winner

请大家帮忙看一下,谢谢!

tz-chf

有这么复杂吗！和northwind有什么不同？