Foxtable(狐表) → 用户栏目 → 专家坐堂 → [未将对象引用设置到对象的实例]的错误


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

主题：[未将对象引用设置到对象的实例]的错误
帅哥哟，离线，有人找我吗？
newsun2k
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1496 积分：11144 威望：0 精华：0 注册：2014/8/13 16:19:00 		[未将对象引用设置到对象的实例]的错误  发帖心情 Post By：2017/4/1 15:49:00 [只看该作者]

帮忙看看这段代码哪里错了，百思不得其解啊。

Dim drAJGL As DataRow = DataTables("表A").sqlfind("编码 = '" & strCode & "'")
If drAJGL Is Nothing Then 
    msgbox("err")
    Return False
End If
For Each dc As DataCol In drAJGL.DataTable.DataCols
    msgbox(dc.name)
Next 
Return False

一个msg都没有弹出，就报错：未将对象引用设置到对象的实例。
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110614 积分：562972 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/4/1 16:00:00 [只看该作者]


For Each dc As DataCol In DataTables("表A").DataCols
    msgbox(dc.name)
Next 
 回到顶部
帅哥哟，离线，有人找我吗？
kylin
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 F6
等级：狐精 帖子：3036 积分：19223 威望：0 精华：2 注册：2008/9/1 7:50:00 		  发帖心情 Post By：2017/4/1 19:22:00 [只看该作者]

To楼主，如果按照你的思路，这个DataRow非空的判断是必须的

Dim drAJGL As DataRow = DataTables("表A").sqlfind("编码 = '" & strCode & "'")
If drAJGL Is Nothing Then 
    msgbox("err")   
Else
    For Each dc As DataCol In drAJGL.DataTable.DataCols
         msgbox(dc.name)
    Next  
End If
另外，如果不是在函数当中，好像Return False没有什么用，建议删除。
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/4/2 11:50:00 [只看该作者]

 sqlFind的dr，没有datatable对象属性的。不能直接用。看2楼。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询