以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [ "1", "2", "3"] 如何将类似多值字段转换成{"1","2","3"} 后,再循环遍历执行代码操作呢?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=179228)

--  作者:cnsjroom
--  发布时间:2022/8/13 12:22:00
--  [ "1", "2", "3"] 如何将类似多值字段转换成{"1","2","3"} 后,再循环遍历执行代码操作呢?

[  "1",  "2",  "3"]  如何将类似多值字段转换成{"1","2","3"}  后,再循环遍历执行代码操作呢?

 

Dim cls() As String = {"1","2","3"} 

 For i As Integer = 0 To  cls.Length - 1

 cmd.CommandText =  "sele ct * from {人才库} where 姓名=\'" & cls(i)  & "\'"
 Dim dt As DataTable = cmd.ExecuteReader(true)
 Dim dr As Datarow = dt.DataRows(0)
 If dr IsNot Nothing Then
  If dr("是否组队")="未组队" then
dr("是否组队")="已组队"
 Else
dr("是否组队")="已组队"
 End If 
 End If

next
 dt.Save


--  作者:有点蓝
--  发布时间:2022/8/13 14:15:00
--  
就是这样用
--  作者:cnsjroom
--  发布时间:2022/8/13 15:08:00
--  回复:(有点蓝)就是这样用

关键是[  "1",  "2",  "3"]  如何将类似多值字段转换成{"1","2","3"} 这样呢?

 

 

如果直接这样写:

Dim cls() As String = ["1","2","3"]

For i As Integer = 0 To  cls.Length - 1
    output.show(cls(i))
Next

 

提示:

---------------------------
错误
---------------------------
编译错误:应为标识符。

 

错误代码:Dim cls() As String = ["1","2","3"]
---------------------------
确定  
---------------------------


--  作者:有点蓝
--  发布时间:2022/8/13 15:19:00
--  
http://www.foxtable.com/mobilehelp/topics/0140.htm,示例三
--  作者:cnsjroom
--  发布时间:2022/8/13 15:27:00
--  回复:(有点蓝)http://www.foxtable.com/mobilehelp...


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

看嘛提示还是一样的   帮助中都是‘’我这里得到的是“”


--  作者:有点蓝
--  发布时间:2022/8/13 15:41:00
--  
如果是接收的前端json数据不会有这种问题

如果是自己写代码赋值,中间的双引号看:http://www.foxtable.com/webhelp/topics/0211.htm