e.newvalue + e.OldValue - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

上面的代码是放在 <出入库> 这个数据表的 datacolchanged 事件里面的，目的是查找 <销售单> 里面同物料编号、同销售单号和行号的数据行，如果找到了，就执行红色那行代码。执行到这里时，"6c" 这个提示就不会出现，系统然后会闪退。如果我注释掉红色那行代码，那么 "6c" 这个提示就会出现，也不会出现闪退的问题。请问要怎样解决这个问题？谢谢。

主题：e.newvalue + e.OldValue