以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码出错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=118414)
--  作者：shiliang
--  发布时间：2018/5/2 14:12:00
--  代码出错

Dim dr As DataRow = DataTables("材料发放明细表").find("出库单号 = \'" & e.DataRow("出库单号") & "\' And [物料代码] = \'" & e.DataRow("物料代码") & "\'")
If dr("记账") IsNot Nothing Then
    MessageBox.Show("材料发放明细表已记账,不能删除!", "提示")
    e.Cancel = True
End If

Dim ww As DataRow = DataTables("材料入库明细表").find("入库单号 = \'" & e.DataRow("入库单号") & "\' And [物料代码] = \'" & e.DataRow("物料代码") & "\'")
If ww("记账") IsNot Nothing Then
    MessageBox.Show("材料入库明细表已记账,不能删除!", "提示")
    e.Cancel = True
End If

 

出错信息如下：

.NET Framework 版本：2.0.50727.8762
Foxtable 版本：2018.3.9.1
错误所在事件：表，库存材料表，BeforeDeleteDataRow
详细错误信息：
调用的目标发生了异常。
未将对象引用设置到对象的实例。
什么原因？
--  作者：有点甜
--  发布时间：2018/5/2 14:17:00
--  

Dim dr As DataRow = DataTables("材料发放明细表").find("出库单号 = \'" & e.DataRow("出库单号") & "\' And [物料代码] = \'" & e.DataRow("物料代码") & "\'")
If dr isnot nothing andalso dr("记账") IsNot Nothing Then
    MessageBox.Show("材料发放明细表已记账,不能删除!", "提示")
    e.Cancel = True
End If

Dim ww As DataRow = DataTables("材料入库明细表").find("入库单号 = \'" & e.DataRow("入库单号") & "\' And [物料代码] = \'" & e.DataRow("物料代码") & "\'")
If ww isnot nothing andalso ww("记账") IsNot Nothing Then
    MessageBox.Show("材料入库明细表已记账,不能删除!", "提示")
    e.Cancel = True
End If
--  作者：shiliang
--  发布时间：2018/5/2 14:17:00
--  

谢谢！