如何保存公式计算结果？？？？？！！！

wx-x · 发表于 2011-3-25 00:28

附件中窗体“工时信息”里的分数小计，平均分，加班贴分、产量合计，总分数都是通过公式计算出来的，但是却无法保存（在表“工时信息”里看不到），请问有什么办法，我写了一些代码，但总无法运行，请大家帮帮忙，谢谢。

Private Sub 换种贴分_AfterUpdate()
Me.分数小计 = Nz([杂物贴分]) + Nz([新产品贴分]) + Nz([机修贴分]) + Nz([换种贴分]) + Nz([工时明细子窗体].Form!分数合计)
End Sub

Private Sub 机修贴分_AfterUpdate()
Me.分数小计 = Nz([杂物贴分]) + Nz([新产品贴分]) + Nz([机修贴分]) + Nz([换种贴分]) + Nz([工时明细子窗体].Form!分数合计)
End Sub

Private Sub 新产品贴分_AfterUpdate()
分数小计 = Nz([杂物贴分]) + Nz([新产品贴分]) + Nz([机修贴分]) + Nz([换种贴分]) + Nz([工时明细子窗体].Form!分数合计)
End Sub

Private Sub 样品贴分_AfterUpdate()
Me.分数小计 = Nz([杂物贴分]) + Nz([新产品贴分]) + Nz([机修贴分]) + Nz([换种贴分]) + Nz([工时明细子窗体].Form!分数合计)
End Sub

Private Sub 杂物贴分_AfterUpdate()
Me.分数小计 = Nz([杂物贴分]) + Nz([新产品贴分]) + Nz([机修贴分]) + Nz([换种贴分]) + Nz([工时明细子窗体.Form!分数合计])
End Sub

wx-x · 发表于 2011-3-25 14:29

原帖由 wx-x 于 2011-3-25 00:28 发表
附件中窗体“工时信息”里的分数小计，平均分，加班贴分、产量合计，总分数都是通过公式计算出来的，但是却无法保存（在表“工时信息”里看不到），请问有什么办法，我写了一些代码，但总无法运行，请大家帮帮忙，谢 ...

兄弟们，可以帮帮忙吗

阿莼 · 发表于 2011-3-25 23:11

要通过查询去表达和输入数据噢。
你先按表字段建查询，再通过查询形成窗体，“分数小计”字段通过查询表达式形成即可，表里尽量不要放“总计”，“小计”这种字段，只要是能被系统计算出来的，用查询计算出来就可以了。
也许你认为把“小计”写回表里很重要，但要知道，这样的坏处是把动态的数据变成了静态，将来一旦修改了公式里某个数值，你还得在所有的更新后进行同步的处理，这样会使系统的性能下降好多。所以不到万不得已，不要把小计总计写回表里去。

styhs · 发表于 2011-3-26 15:05

LS正解
如确需用写入，可参考附件。

wx-x · 发表于 2011-3-26 16:42

谢谢，正是需要这样的效果。

		自动登录	找回密码
密码			免费注册

如何保存公式计算结果？？？？？！！！

回复 4楼 styhs 的帖子