计算本年合计和增幅

考拉　发表于：2008-05-23 06:32:24 　

有这样一张表：
部门   去年销售收入    本年合计   增幅    1月   2月   。。。   12月
一部     300                              20    30             20
二部      400                              30    25             30

我需要计算本年合计和增幅，我考虑先在窗体里面输入去年销售输入和今年的销售收入，再自动计算出本年合计和增幅，并把结果保存在表中。请问该怎么做？

Top

竹笛发表于：2008-05-23 09:35:51

用在保存按钮事件中:

dim x as Currency
x=me.1月+me.2月+...+me.12月

me.本年销售收入.setfocus

me.本年销售收入=x

me.增幅.setfocus
me.增幅=(x-me.上年销售收入)/me.上年销售收入

Top

悠悠发表于：2008-05-23 09:47:06

如果要将结果保存到表中,你需要先设计一个表,然后通过VBA代码将在窗体中出现的数据存入表中.一点思路仅供参考!

Top

十段发表于：2008-05-23 09:54:50

除楼上的方法外，还可以用以下方法，详见演示：

点击下载此附件

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

计算本年合计和增幅