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" 这个提示就会出现，也不会出现闪退的问题。请问要怎样解决这个问题？谢谢。
msgbox("e.newvalue")
msgbox("e.OldValue")
dr01("交货数量") = dr01("交货数量") - e.newvalue + e.OldValue
msgbox("6c")新值，旧值是啥？弹出来看看？另外还应判断新值、旧值是否为空？
我发现好像不是《出入库》这里的问题，而是《销售单》的问题。我再看看。
datacolchanged 有其它代码，互相影响，造成死循环了
e.newvalue + e.OldValue 本生就导致了死循环，因为每相加一次就会产生新的e.newvalue 和新的e.OldValue