| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 有没有办法直接得到“1”，“2”，……类似的值呢？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185613) |
| -- 作者：cnsjroom -- 发布时间：2023/3/6 10:15:00 -- 有没有办法直接得到“1”，“2”，……类似的值呢？ Dim lst As List(Of String) lst = Connections("12+3").GetTableNames output.show(& String.join(",",lst.toarray)) 得到的是1，2，3，4，5 有没有办法直接得到“1”，“2”，……
|
| -- 作者：有点蓝 -- 发布时间：2023/3/6 10:23:00 -- output.show(& String.join(""",""",lst.toarray)) |
| -- 作者：cnsjroom -- 发布时间：2023/3/6 10:49:00 -- 回复：（有点蓝）output.show(& String.join(""",... 再麻烦老师一下 如果我要排除部分表 怎么操作呢 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编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2023/3/6 11:06:00 -- Dim cols As String() = "{""" & String.join(""",""",lst.toarray) & """}" |
| -- 作者：cnsjroom -- 发布时间：2023/3/6 23:10:00 -- 回复：（有点蓝）Dim cols As String() = "{""" &... --------------------------- 错误 --------------------------- 编译错误:类型“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) & """}"
|
| -- 作者：有点蓝 -- 发布时间：2023/3/7 8:30:00 -- Dim cols As String = "{""" & String.join(""",""",lst.toarray) & """}" |
| -- 作者：cnsjroom -- 发布时间：2023/3/7 19:49:00 -- 回复：（有点蓝）Dim cols As String = "{""" & S... 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的 怎么排除这三个呢
|
| -- 作者：有点蓝 -- 发布时间：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)
|