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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → e.newvalue + e.OldValue

共有1222人关注过本帖树形打印复制链接主题：e.newvalue + e.OldValue

edisontsui

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1553 积分：10082 威望：0 精华：0 注册：2014/12/18 16:12:00

e.newvalue + e.OldValue 发帖心情

Post By：2024/10/10 9:00:00 [只看该作者]

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" 这个提示就会出现，也不会出现闪退的问题。请问要怎样解决这个问题？谢谢。