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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → datarowdeleting 问题

共有1830人关注过本帖树形打印复制链接主题：datarowdeleting 问题

edisontsui

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

加好友

发短信

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

datarowdeleting 问题 发帖心情

Post By：2019/4/19 9:03:00 [只看该作者]

'自动更新销售单的要求生产数量

If e.DataRow("销售单号") = ""

Else

Dim dr As DataRow = DataTables("销售单").find("销售单号 = '" & e.DataRow("销售单号") & "' And 销售单行号 = '" & e.DataRow("行号") & "' And 产品代号 = '" & e.DataRow("产品代号") & "'")

dr("要求生产数") = dr("要求生产数") - e.DataRow("要求生产数量")

End If

我的dataroldeleting里面有如上代码，执行时出现下面的警告：

.NET Framework 版本：2.0.50727.8793

Foxtable 版本：2017.3.18.1

错误所在事件：表，生产指令，DataRowDeleting

详细错误信息：

调用的目标发生了异常。

未将对象引用设置到对象的实例。

请问是哪里的问题？谢谢。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/4/19 9:44:00 [只看该作者]

If e.DataRow("销售单号") = ""
Else
    Dim dr As DataRow = DataTables("销售单").find("销售单号 = '" & e.DataRow("销售单号") & "' And 销售单行号 = '" & e.DataRow("行号") & "' And 产品代号 = '" & e.DataRow("产品代号") & "'")
    If dr IsNot Nothing Then
        dr("要求生产数") = dr("要求生产数") - e.DataRow("要求生产数量")
    Else
        msgbox("没找到")
    End If
End If

edisontsui

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

加好友

发短信

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

Post By：2019/4/19 9:58:00 [只看该作者]

上述代码运行后，会出现“没找到”的警告框。我将 msgbox("没找到") 改成 e.Cancel = True，就没事了。

下一主题 >> << 上一主题

主题：datarowdeleting 问题