标题: 报表的合计放在页面页眉，而是不页面页脚，代码要应怎样改？ [打印本页] 作者: fatmingli 时间: 2002-8-9 01:28 标题: 报表的合计放在页面页眉，而是不页面页脚，代码要应怎样改？ 我在报表的合计（在页面页脚显示）中写了以下代码，但我需要把合计放在页面页眉，而是不页面页脚，代码应怎样修改？谢谢！！！
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