以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  报错！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109086)
--  作者：xxfoxtable
--  发布时间：2017/11/3 18:43:00
--  报错！

msgbox("编号=\'" &  Tables("申报查询_table1").Current("编号") &"\'")
 Dim dr As DataRow=DataTables("申报表").sqlfind("编号=\'" &  Tables("申报查询_table1").Current("编号") &"\'")

这句总报如下错误，不知道什么原因，msgbox已经显示编号=\'1\'但还是报错

未将对象引用设置到对象的实例。

[此贴子已经被作者于2017/11/3 18:44:28编辑过]
--  作者：有点蓝
--  发布时间：2017/11/3 20:16:00
--  
If Tables("申报查询_table1").Current IsNot Nothing then
    msgbox("编号=\'" &  Tables("申报查询_table1").Current("编号") &"\'")
    Dim dr As DataRow=DataTables("申报表").sqlfind("编号=\'" &  Tables("申报查询_table1").Current("编号") &"\'")
End If

[此贴子已经被作者于2017/11/3 20:16:00编辑过]