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

附件

dd.rar(48.2 KB)

2010-11-5 22:37, 下载次数: 2

复制内容到剪贴板

代码:

Option Compare Database
Private Sub 页面页眉_Format(Cancel As Integer, FormatCount As Integer)
    Me.txtSumByPage = 0
End Sub

Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
    Me.txtSumByPage = Nz(Me.txtSumByPage, 0) + Nz(Me.进仓数量, 0)
End Sub

附件

dd.zip(52.61 KB)

2010-11-6 21:50, 下载次数: 0

2010-11-06 10 08 44.jpg(28.09 KB)

2010-11-6 22:09