Private Sub 页面页眉_Format(Cancel As Integer, FormatCount As Integer)
Me.页合计 = 0
End Sub
Private Sub 主体_Print(Cancel As Integer, PrintCount As Integer)
Me.页合计 = Nz(Me.页合计, 0) + Nz(Me.总进价, 0)
End Sub
老师,这句代码怎么理解? Me.页合计 = Nz(Me.页合计, 0) + Nz(Me.总进价, 0)谢谢蒋老师了.
是根据十段老师2008-5-8发表的文章:
《报表——页合计和累计示例》 中间的页合计部分代码修改做的,它是文本框[页合计]的数据来源
http://www.accessoft.com/blog/article-show.asp?userid=563&Id=1772
摘 要:Option Compare Database
Private Sub 页面页眉_Format(Cancel As Integer, FormatCount As Integer)
Me.页合计 = 0
End Sub
Private Sub 主体_Print(Cancel As Integer, PrintCount As Integer)
Me.页合计 = Nz(Me.页合计, 0) + Nz(Me.销售金额, 0)
End Sub
Me.页合计 = Nz(Me.页合计, 0) + Nz(Me.销售金额, 0)其实这句代码是一个循环语句,在页面页眉格式化中将页合计初始化为0,在主体打印事件中用一循环语句统计本页的合计金额了。
总记录:14篇 页次:1/1 9 1 :