Foxtable(狐表)用户栏目专家坐堂 → 代码出错


  共有1622人关注过本帖树形打印复制链接

主题:代码出错

帅哥哟,离线,有人找我吗?
shiliang
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:139 积分:1110 威望:0 精华:0 注册:2013/10/9 11:32:00
代码出错  发帖心情 Post By: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
详细错误信息:
调用的目标发生了异常。
未将对象引用设置到对象的实例。
什么原因?


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:139 积分:1110 威望:0 精华:0 注册:2013/10/9 11:32:00
  发帖心情 Post By:2018/5/2 14:17:00 [只看该作者]

谢谢!

 


 回到顶部