|
我在报表的合计(在页面页脚显示)中写了以下代码,但我需要把合计放在页面页眉,而是不页面页脚,代码应怎样修改?谢谢!!!
Option Compare Database
Option Explicit
Dim mytotal
Dim mytotall
Dim mytotala
Dim mytotalb
Dim mytotalc
Private Sub 页面页脚_Format(Cancel As Integer, FormatCount As Integer)
End Sub
Private Sub 页面页眉_Format(Cancel As Integer, FormatCount As Integer)
End Sub
Private Sub 页面页眉_Print(Cancel As Integer, PrintCount As Integer)
mytotal = 0
mytotall = 0
mytotala = 0
mytotalb = 0
mytotalc = 0
End Sub
Private Sub 主体_Print(Cancel As Integer, PrintCount As Integer)
mytotal = mytotal + Me![进港签证日期之Count]
mytotall = mytotall + Me![功率之Sum]
mytotala = mytotala + Me![总吨之Sum]
mytotalb = mytotalb + Me![载重吨之Sum]
mytotalc = mytotalc + Me![进港载货量之Sum]
End Sub
Private Sub 页面页脚_Print(Cancel As Integer, PrintCount As Integer)
Me![Text45] = mytotal
Me![Text47] = mytotall
Me![Text49] = mytotala
Me![Text51] = mytotalb
Me![Text53] = mytotalc
End Sub
|
|