Foxtable(狐表)用户栏目专家坐堂 → 未将对象引用设置到对象的实例,在usercode.test(


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

主题:未将对象引用设置到对象的实例,在usercode.test(

帅哥哟,离线,有人找我吗?
cnsjroom
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
未将对象引用设置到对象的实例,在usercode.test(  发帖心情 Post By:2021/8/4 16:08:00 [只看该作者]

代码运行后报错:未将对象引用设置到对象的实例,在usercode.test()


麻烦老师帮忙看看
代码如下:
没有弹出MessageBox.Show("1")和MessageBox.Show("2")

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:求助代码.txt

因上传提示存在非法字符  故附上文本和图片   麻烦老师帮忙看看  谢谢

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:3.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2021/8/4 16:07:56编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

MessageBox.Show("1")之上再添加MessageBox,看是那一句代码出错

 回到顶部
帅哥哟,离线,有人找我吗?
cnsjroom
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(有点蓝)MessageBox.Show("1")之上再添加Mess...  发帖心情 Post By:2021/8/4 16:16:00 [只看该作者]

MessageBox.Show("1")之上再添加Mess...  均可弹出对应的值 

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110743 积分:563641 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
……

 回到顶部
帅哥哟,离线,有人找我吗?
cnsjroom
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(有点蓝)……    For Each Product...  发帖心情 Post By:2021/8/4 17:01:00 [只看该作者]

谢谢老师  按照你的指导 已经解决

 回到顶部