以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  语句错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93642)

--  作者:cuicuibing
--  发布时间:2016/12/3 8:15:00
--  语句错误
Dim drr As DataRow
For Each dr As DataRow In DataTables("窗口2_table3").DataRows
  drr = DataTables("窗口2_table2").Find("工序编号 = \'"&dr("工序编号")&"\'") \'找出编号为03的产品
    dr("类别") = drr("类别")
Next


提示代码执行出错,错误信息 system.nullreferenceException:未将对象引用设置到对象的实例。
在UserCode.Test()

--  作者:有点蓝
--  发布时间:2016/12/3 9:00:00
--  
Dim drr As DataRow
For Each dr As DataRow In DataTables("窗口2_table3").DataRows
    drr = DataTables("窗口2_table2").Find("工序编号 = \'"&dr("工序编号")&"\'") \'找出编号为03的产品
    If drr IsNot Nothing Then
        dr("类别") = drr("类别")
    End If
Next