急求：报表分组后的本页合计及分组分页

oyz1123

请各们大师看下如何在报表分组后的本页合计按组分页,谢谢！

taller

利用两个事件就可以实现

1. Option Compare Database
   
2. Private Sub 页面页眉_Format(Cancel As Integer, FormatCount As Integer)
   
3.     Me.txtSumByPage = 0
   
4. End Sub
   
5. 
   
6. Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
   
7.     Me.txtSumByPage = Nz(Me.txtSumByPage, 0) + Nz(Me.进仓数量, 0)
   
8. End Sub
   

复制代码

[ 本帖最后由 taller 于 2010-11-6 22:09 编辑 ]

oyz1123

非常多谢版主的赐教，因当时急于用，所以我用EXCEL做了，现在有了这个代码，我以后还有好多地方用得着。
再次感谢版主！

南海

留个记号，学习

Grassland55

学习。。。。。。