- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 未将对象引用设置到对象的实例，在usercode.test（ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170709)
-- 发布时间：2021/8/4 16:08:00
-- 未将对象引用设置到对象的实例，在usercode.test（
代码运行后报错：未将对象引用设置到对象的实例，在usercode.test（）
麻烦老师帮忙看看
代码如下：
没有弹出MessageBox.Show("1")和MessageBox.Show("2")
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:求助代码.txt |
因上传提示存在非法字符 故附上文本和图片 麻烦老师帮忙看看 谢谢
此主题相关图片如下：1.png
此主题相关图片如下：2.png
此主题相关图片如下：3.png
[此贴子已经被作者于2021/8/4 16:07:56编辑过]
-- 发布时间：2021/8/4 16:15:00
--
MessageBox.Show("1")之上再添加MessageBox，看是那一句代码出错
-- 发布时间：2021/8/4 16:16:00
-- 回复：（有点蓝）MessageBox.Show("1")之上再添加Mess...
MessageBox.Show("1")之上再添加Mess... 均可弹出对应的值
-- 发布时间：2021/8/4 16:18:00
--
……
For Each Product1 As String() In Products1
output.show("2-" &Product1(0))
Dim dr1 As DataRow
Dim dr2 As DataRow
Dim dr3 As DataRow
Dim dr4 As DataRow
dr1 = xzqy1.Find("ID=\'" & Product1(0) & "\'")
dim rrr as row = r.AddNew
If dr1 IsNot Nothing
rrr ("身份证号")=dr1("vc_idcard")
rrr ("工号")=dr1("vc_perid")
rrr ("主要工作地点")=dr1("vc_memo")
……
End If
End If
rrr ("煤矿编号")=bm
rrr ("标识卡号")=Product
……
-- 发布时间：2021/8/4 17:01:00
-- 回复：（有点蓝）…… For Each Product...
谢谢老师 按照你的指导 已经解决