是不是微软的BUG啊,救命啊

marine12

小弟我做了个报表,然后计算总的费用,总的费用=每个部门的数量*物品的单价

然后我是这么做的,大家耐心看一下代码,本人初学access,语法都不会,请勿见笑

Dim b1 As Currency
Dim b2 As Currency
Dim b3 As Currency

Option Compare Database

Private Sub Report_Activate()
b1 = 0
b2 = 0
b3 = 0
End Sub

Private Sub 报表页脚_Print(Cancel As Integer, PrintCount As Integer)
Me.Text235 = b1    'text235就是页脚上的text文本框
Me.Text236 = b2
Me.Text237 = b3
End Sub

Private Sub 主体_Print(Cancel As Integer, PrintCount As Integer)
b1 = b1 + Nz(Me.电脑) * 单价
b2 = b2 + Nz(Me.财务) * 单价
b3 = b3 + Nz(Me.人事) * 单价
End Sub
然后点打印预览看到的价格,可是我再点打印的时候,打印出来的价格跟我预览的价格又不同了,比原来多统计了一个页面

本来预览是3.50元的,现在变成了7.01,就是多统计了一次,有时多加了一次第一页的金额,有时多加一次第二页的金额,反正每次都不一样,可是预览又是对的,我晕啊,是不是微软的BUG啊

海狸先生

b1 =Me.Text235 + Nz(Me.电脑) * 单价　试试看

marine12

me.text235本身是空的啊,最后才赋值给它的,这样不行,会得到空值,应该是先执行主体_print()再执行报表页脚_print()的吧,这样不行,出错

marine12

请各位高手帮忙啊,谢谢了

zjgage

帮顶！

skylark

如仅是汇总的话,是否参照一下常规的做法.

http://www.office-cn.net/forum.php?mod=viewthread&tid=36719&replyID=&skin=1

marine12

楼上的大哥，这个跟你不一样，主体上显示的是数量，比如

　　　　收藏1  收藏2  收藏3　　单价　　

刘德华　　1    4      6        1.1

张学友    5    2     5         3.2

黎明      6    11    2         5.5

费用总计:

这样的每一列费用都要有统计,分别是数量*单价,是个交叉表,单价一直在变化的,

而费用总计是写在报表页脚上,中间是主体,上面是报表页眉,看我上面的代码应该很清楚

费用计算出来也是对的,可是打印出来就不是那么回事了,只要点一下打印,费用就会重新计算

不是预览出来的费用了,所以打印出来的数据跟预览数据不同,救命啊,各位老大

skylark

因为没有文件,不知是不是事件的问题,其实在主体上建3个Text,分别是[收藏1*单价][收藏2*单价].....

属性中为运行全体之上和不可见,页脚的Text分别=这三个Text就Ok了.很快的.

marine12

skylark我也考虑过你这个问题,可是我字段太多,我这里有27个字段,就是要到收藏27了,但是我觉得我这样肯定是对的,就是为什么预览报表是对的,点打印的时候就不行了呢?或者我导出到excel也是这样,上面的总计就会发生变化,这个跟把计算b1=b1+nz(me.人事)*单价  写在主体_print函数里面有没有关系啊?

可以说我预览报表的计算值是对的,但是只要随便按其他一个按钮,比如说打印,或者导出,总费用的值马上发生变化,这究竟是为什么?很不明白,现在报表出来了,可是打印不出来,真是奇怪啊

skylark

我以为是变量置零的事件要改一下,Report_Activate时是0,后面报表一直开着,也不会再变0了,打印时其他的事件重复触发,

参考.