Foxtable(狐表) → 用户栏目 → 专家坐堂 → 有没有办法直接得到“1”，“2”，……类似的值呢？


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

主题：有没有办法直接得到“1”，“2”，……类似的值呢？
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		有没有办法直接得到“1”，“2”，……类似的值呢？  发帖心情 Post By：2023/3/6 10:15:00 [只看该作者]

Dim lst As List(Of String)
lst = Connections("12+3").GetTableNames 
output.show(& String.join(",",lst.toarray))
得到的是1，2，3，4，5
有没有办法直接得到“1”，“2”，……
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

output.show(& String.join(""",""",lst.toarray))

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


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		回复：（有点蓝）output.show(& String.join(""",...  发帖心情 Post By：2023/3/6 10:49:00 [只看该作者]

再麻烦老师一下 如果我要排除部分表 怎么操作呢
Dim lst As List(Of String)
lst = Connections("12+3").GetTableNames
For Each nm As String In lst
    
    If nm.Contains("CW")  Then
    Else If nm.Contains("SYS")  Then
    Else If nm.Contains("YW")  Then
    Else
        String.join(""",""",lst.toarray) 
    End If
Next
output.show(String.join(""",""",lst.toarray))

当前代码运行得到的是全部表名  我想排除CW  SYS  YW开头的表


output.show("{" & String.join(""",""",lst.toarray) & "}")
得到的是{1”，“2”，……,"N}没有红色部分的{“1”，“2”，……,"N"}“符号   怎么补正呢？
当前代码如下：
Dim cols As String() = "{'"& String.join(""",""",lst.toarray) &"'}"
[此贴子已经被作者于2023/3/6 10:55:30编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112379 积分：572157 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/3/6 11:06:00 [只看该作者]

Dim cols As String() = "{""" & String.join(""",""",lst.toarray) & """}"

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


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		回复：（有点蓝）Dim cols As String() = "{""" &...  发帖心情 Post By：2023/3/6 23:10:00 [只看该作者]

---------------------------
错误
---------------------------
编译错误:类型“String”的值无法转换为“String 的 1 维数组”。
错误代码：Dim cols As String() = "{""" & String.join(""",""",lst.toarray) & """}"
---------------------------
确定   
---------------------------

怎么修正呢？

当前代码如下：
Dim lst As List(Of String)
lst = Connections("12+3").GetTableNames
For Each nm As String In lst
    If nm.Contains("CW")  Then
    Else If nm.Contains("SYS")  Then
    Else If nm.Contains("YW")  Then
    Else
        output.show( "{""" & String.join(""",""",lst.toarray) & """}")   想实现不含cw sys yw 的表名  组成{“1”，“2”}  这个部分代码怎么写呢？
    End If
Next
Dim cols As String() = "{""" & String.join(""",""",lst.toarray) & """}"
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112379 积分：572157 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/3/7 8:30:00 [只看该作者]

Dim cols As String = "{""" & String.join(""",""",lst.toarray) & """}"

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


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		回复：（有点蓝）Dim cols As String = "{""" & S...  发帖心情 Post By：2023/3/7 19:49:00 [只看该作者]

Dim lst As List(Of String)
lst = Connections("12+3").GetTableNames
For Each nm As String In lst
    If nm.Contains("CW")  Then
    Else If nm.Contains("SYS")  Then
    Else If nm.Contains("YW")  Then
    Else
        Dim cols As String = "{""" & String.join(""",""",lst.toarray) & """}"
    End If
Next
output.show(cols)
老师 红色部分输出还是包含的有cw sys  yw的  怎么排除这三个呢
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112379 积分：572157 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/3/7 19:55:00 [只看该作者]

Dim lst As List(Of String)
lst = Connections("12+3").GetTableNames
Dim lst2 As new List(Of String)
For Each nm As String In lst
    If nm.Contains("CW")  Then
    Else If nm.Contains("SYS")  Then
    Else If nm.Contains("YW")  Then
    Else
lst2.add(nm)

    End If
Next
        Dim cols As String = "{""" & String.join(""",""",lst2.toarray) & """}"
output.show(cols)
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.10156 秒, 4 次数据查询