Foxtable(狐表) → 用户栏目 → 专家坐堂 → 集合转换为数组查找赋值报错


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

主题：集合转换为数组查找赋值报错
帅哥哟，离线，有人找我吗？
yifan3429
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00 		集合转换为数组查找赋值报错  发帖心情 Post By：2024/1/27 3:50:00 [只看该作者]

Dim lst As List(Of String)
Dim Arys() As String
lst = Connections("2022").GetTableNames
Arys = Lst.ToArray() '将集合转换为数组
For Each nm As String In lst
    '    Output.Show(nm)   
    Dim dr As DataRow
    dr = DataTables("系统_菜单").sqlFind("主表 = '" & nm & " ' ") '找出编号为03的产品
    If dr Is Nothing Then '如果没找到的话
        DataTables("系统_菜单").AddNew
        dr("主表") = nm
        dr("主菜单") = "0.未分配"
        statusBar.Message1 = nm & "正在创建数据,请稍后..."
        Application.DoEvents()
    End If
Next
[此贴子已经被作者于2024/1/27 3:50:36编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110810 积分：563988 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/1/27 8:54:00 [只看该作者]

报什么错？上面代码里数组根本没有任何用处

 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2024/1/27 9:57:00 [只看该作者]

不能这样用吗 怎么把全部表名加到表里 

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


加好友 发短信
等级：超级版主 帖子：110810 积分：563988 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/1/27 10:01:00 [只看该作者]

可以用，但是数组根本没用到，直接使用集合就够了。

另外麻烦以后提问题，报错的直接把错误的具体内容发上来，没有必要等别人问了再发，不同的错误有不同的解决方法。
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2024/1/27 10:25:00 [只看该作者]

我这要怎么实现  还要请教老师 

 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

报什么错？！！！！！！！！！！！！

 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2024/1/27 10:35:00 [只看该作者]

---------------------------
版本:2022.8.18.1
---------------------------
代码执行出错，错误信息：

System.NullReferenceException: 未将对象引用设置到对象的实例。

   在 UserCode.Test()
---------------------------
确定   
---------------------------


   Dim dr As DataRow
    dr = DataTables("系统_菜单").sqlFind("主表 = '" & nm & " ' ") '找出编号为03的产品
    If dr Is Nothing Then '如果没找到的话
        DataTables("系统_菜单").AddNew
        dr("主表") = nm
        dr("主菜单") = "0.未分配"

这段代码要怎么处理




[此贴子已经被作者于2024/1/27 10:35:54编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110810 积分：563988 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/1/27 10:40:00 [只看该作者]

    If dr Is Nothing Then '如果没找到的话
        dr = DataTables("系统_菜单").AddNew
        dr("主表") = nm
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2024/1/27 12:38:00 [只看该作者]

Dim lst As List(Of String)
Dim Arys() As String
lst = Connections("2022").GetTableNames
Arys = Lst.ToArray() '将集合转换为数组
For Each nm As String In lst
    '        Output.Show(nm)
    Dim dr As DataRow 
    If dr Is Nothing Then '如果没找到的话
        dr = DataTables("系统_存档地址").AddNew
        dr("主表") = nm
        dr("菜单") = "0.未分配"
        statusBar.Message1 = nm & "正在创建数据,请稍后..."
        Application.DoEvents()
    End If
Next


只能添加一条不能进行对比和添加全部的表
而且主表名存在的话也会再次添加

希望完成的功能是 所有表在系统_存档地址 表中对比一次 如果存在就跳过 不催在就新增补齐
[此贴子已经被作者于2024/1/27 12:41:44编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110810 积分：563988 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/1/27 14:11:00 [只看该作者]

那就不要去掉sqlFind啊，自己写的什么代码都看不懂么

 回到顶部
总数 12 1 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 次数据查询