求助，自动计算结果保存问题

王银钱　发表于：2020-05-05 09:44:29 　

复制

求助：我想把自动计算磅费小计保存到磅费合计，

把货款小计保存到货款合计.

点击下载此附件

Top

小赵发表于：2020-05-05 20:29:05

控件来源==[磅费小计]，==[货款小计]

Top

王银钱发表于：2020-05-06 07:52:04

这样是可以显示，但不能保存到表里

数据保存到表里方便统计

Top

王银钱发表于：2020-05-07 11:00:09

Private Sub 磅费小计_BeforeUpdate(Cancel As Integer)
If Me.磅费小计 > 0 Then Me.磅费合计 = Me.磅费小计
If Me.磅费小计 = 0 Then Me.磅费合计 = 0
End Sub

求教：这段代码为什么不好使？

Top

leoyoung 发表于：2020-05-07 12:58:35

试试在子窗体中写入更新后事件：

Private Sub Form_AfterUpdate()
Me.Parent!磅费合计 = Forms("过磅称重").Form("过磅明细").Form![Text17]
Me.Parent!货款合计 = Forms("过磅称重").Form("过磅明细").Form![Text15]
End Sub

Top

王银钱发表于：2020-05-07 22:16:03

可以保存数据，但是数据更改时，磅费合计显示的是磅费小计前一次的数据。

还存在更新速度慢的问题，

求完善

Top

leoyoung 发表于：2020-05-08 07:06:19

请参考：

点击下载此附件

Top

王银钱发表于：2020-05-08 08:54:04

非常好，谢谢

正在学习

Top

王银钱发表于：2020-05-08 15:25:41

能否再优化一下，

让相邻两条记录的货物重量相减（先比较大小，只能大数减小数），

自动算出净重，并且只有正数

第一条记录净重为0

点击下载此附件

Top

王银钱发表于：2020-05-09 17:40:01

又发现新的问题，这是怎么回事，求帮助：

第一条记录正常，从第二条记录开始，磅费计算结果翻2倍，

第三条记录翻3倍，

第四条记录翻4倍......

@leoyoung

Top

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

Access交流中心

求助，自动计算结果保存问题