| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- e.newvalue + e.OldValue (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193749) |
| -- 作者：edisontsui -- 发布时间：2024/10/10 9:00:00 -- e.newvalue + e.OldValue If e.DataCol.name = "出库数量" Then Dim dr01 As DataRow = DataTables("销售单").Find("产品代号 = \'" & e.DataRow("物料编号") & "\' and 销售单号 = \'" & e.DataRow("销售单号") & "\' and 销售单行号 = \'" & e.DataRow("销售单行号") & "\'") If dr01 IsNot Nothing Then msgbox("6b") dr01("交货数量") = dr01("交货数量") - e.newvalue + e.OldValue msgbox("6c") end if end if 上面的代码是放在 <出入库> 这个数据表的 datacolchanged 事件里面的，目的是查找 <销售单> 里面同物料编号、同销售单号和行号的数据行，如果找到了，就执行红色那行代码。执行到这里时，"6c" 这个提示就不会出现，系统然后会闪退。如果我注释掉红色那行代码，那么 "6c" 这个提示就会出现，也不会出现闪退的问题。请问要怎样解决这个问题？谢谢。
|
| -- 作者：cd_tdh -- 发布时间：2024/10/10 9:07:00 -- msgbox("e.newvalue") msgbox("e.OldValue") dr01("交货数量") = dr01("交货数量") - e.newvalue + e.OldValue msgbox("6c")新值，旧值是啥？弹出来看看？另外还应判断新值、旧值是否为空？
|
| -- 作者：edisontsui -- 发布时间：2024/10/10 9:10:00 -- 我发现好像不是《出入库》这里的问题，而是《销售单》的问题。我再看看。 |
| -- 作者：有点蓝 -- 发布时间：2024/10/10 9:11:00 -- datacolchanged 有其它代码，互相影响，造成死循环了 |
| -- 作者：程兴刚 -- 发布时间：2024/10/11 2:47:00 -- e.newvalue + e.OldValue 本生就导致了死循环，因为每相加一次就会产生新的e.newvalue 和新的e.OldValue |