我刚学AC，请问报表怎么实现页合计？先谢了！

czdzp

THX

marco2

用VBA在报表的行生成事里写一个累加变量，在新页事件里变为0即可。

czdzp

老兄能不能说不得清楚一点儿，不太懂啊

shisgs

我也想知道，说详细一些啊。

andymark

在页面页脚加入一个文本框控件，命名：本页合计
然后在报表模块中加以下代码：
Option Compare Database
Option Explicit
Dim mytotal
'以上是申明
Private Sub 页面页眉_Print(Cancel As Integer, PrintCount As Integer)
mytotal = 0 '每新开始一页即清零
End Sub

Private Sub 主体_Print(Cancel As Integer, PrintCount As Integer)
mytotal = mytotal + Me![销售数量] '统计
End Sub

Private Sub 页面页脚_Print(Cancel As Integer, PrintCount As Integer)
Me![本页合计] = mytotal '控件赋值
End Sub

czdzp

THX very much.不过问题还是不少：AC倒底是个洋货不合中国人的使用习惯：（