多列单页小计

bluecard · 发表于 2006-6-9 22:11:00

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

bluecard · 发表于 2006-6-9 22:14:00

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

eddieliu · 发表于 2006-6-9 22:45:00

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 · 发表于 2006-6-9 22:49:00

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

eddieliu · 发表于 2006-6-9 23:23:00

哈哈

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 · 发表于 2006-6-9 23:59:00

万分感谢!搞定!

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[其它] 多列单页小计

群介绍
主题无相 (随机显示版	同地区群块其他地区)