以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=65312)

--  作者:zhl7928
--  发布时间:2015/3/13 15:47:00
--  [求助]
For Each aa As DataRow In DataTables("Ptype").DataRows
    Output.Show(aa("stop"))
    Output.Show(aa("UserCode"))
    Output.Show("第一列 = \'" & aa("UserCode") & "\'")
    If aa("stop") = False Then
        Dim b As DataRow = DataTables("表A").Find("第一列 = \'" & aa("UserCode") & "\'")
        Output.Show(b("第三列"))
        If b IsNot Nothing AndAlso b("第三列") Is Nothing Then
            aa("stop") = True
        End If
    End If
Next 

好久没用了,请问错在哪了?
[此贴子已经被作者于2015/3/13 16:20:01编辑过]

--  作者:Bin
--  发布时间:2015/3/13 15:53:00
--  
出什么错? 你要实现什么效果?
--  作者:zhl7928
--  发布时间:2015/3/13 15:57:00
--  
要实现的效果  
是  表B根据表A里 相对应的编号 的库存 来停用表A里的编号

出错是

object reference not set to an instance of an object at usercode.text()

--  作者:Bin
--  发布时间:2015/3/13 16:03:00
--  
上例子看看.代码应该没问题.
--  作者:有点甜
--  发布时间:2015/3/13 16:06:00
--  

 出错,也只能是这句出错

 

Output.Show(b("第三列"))


--  作者:zhl7928
--  发布时间:2015/3/13 16:08:00
--  
上传了
--  作者:有点甜
--  发布时间:2015/3/13 16:25:00
--  
 没有看到你上传什么,具体看5楼
--  作者:zhl7928
--  发布时间:2015/3/13 16:44:00
--  
谢谢,解决了