我的页面统计有问题,请看代码

rocket204

<>Dim sum1 As Double       'sum1是页面小计<BR>Dim allsum1 As Double   ' sum2是总合计</P>
<>rivate Sub 页面页脚_Print(Cancel As Integer, PrintCount As Integer)<BR>'计算页面小计数<BR>Me.total.Value = sum1<BR>'计算合计数<BR>allsum1 = allsum1 + sum1<BR>Me.alltotal.Value = allsum1<BR>End If<BR>End Sub</P>
<P>Private Sub Report_Page()<BR>'每开始一个新页将临时变量归0<BR>sum1 = 0<BR>End Sub<BR>Private Sub Report_Activate()<BR>allsum1 = 0<BR>End Sub</P>
<P>Private Sub 主体_Print(Cancel As Integer, PrintCount As Integer)<BR>sum1 = sum1 + Me.qty_ordered.Value</P>
<P>End Sub<BR></P>
<P>第一次打开程序页面预览合计的结果不对,然后关闭,再打开预览,结果就正确了...经常出现时对时不对的,原因是最后一页的数据会多加一次.,,不知道为什么?  谢谢指出来.</P>

tz-chf

在页面页眉里归0

rocket204

<>请说具体一些,怎么归0法.</P>
<>是哪个变量归0,谢谢!</P>