多列单页小计

bluecard

跪求多列单页小计,请大师们帮忙!!!!!

bluecard

网上都是单项单页小计,小弟找过.那位高手可以指点,先谢

eddieliu

Private Dtemp As Double

Private Sub Report_Page()
'每开始一个新页将临时变量归为0
Dtemp = 0
End Sub

Private Sub 页面页脚_Print(Cancel As Integer, PrintCount As Integer)
'显示页合计
Me.txtpageSUM = Dtemp
End Sub

Private Sub 主体_Print(Cancel As Integer, PrintCount As Integer)
'累计本页数量
Dtemp = Dtemp + Me.数量
End Sub

bluecard

这只是数量一列,如果还有金额一列单页小计该如何写代码

eddieliu

哈哈

Private Dtemp As Double
Private Dtemp1 As Double



Private Sub Report_Page()
'每开始一个新页将临时变量归为0
Dtemp = 0
Dtemp1 = 0
End Sub



Private Sub 页面页脚_Print(Cancel As Integer, PrintCount As Integer)
'显示页合计
Me.txtpageSUM = Dtemp
Me.txtVaulSUM = Dtemp1
End Sub



Private Sub 主体_Print(Cancel As Integer, PrintCount As Integer)
'累计本页数量
Dtemp = Dtemp + Me.数量
Dtemp1 = Dtemp1 + Me.金额

End Sub

bluecard

万分感谢!搞定!