以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教集合  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62258)
--  作者：hbhb
--  发布时间：2014/12/28 18:31:00
--  请教集合
甜老大：好！
请问集合转为一列筛选in条件的标准写法？
--  作者：有点甜
--  发布时间：2014/12/28 19:17:00
--  

 参考

 

http://www.foxtable.com/help/topics/1423.htm

 
--  作者：有点甜
--  发布时间：2014/12/28 19:18:00
--  
Dim Parts() As String = {"中国","上海","浦东"}
Dim Str1 As String
Str1 = String.Join("\',\'", Parts)
Output.Show("\'" & Str1 & "\'")
--  作者：hbhb
--  发布时间：2014/12/28 19:29:00
--  
谢谢！以前看到过循环连接的，如何写？
--  作者：有点甜
--  发布时间：2014/12/28 19:35:00
--  

Dim Parts() As String = {"中国","上海","浦东"}
Dim Str1 As String = ""

For Each p As String In parts
    str1 &= "\'" & p & "\',"
Next

msgbox(str1.Trim(","))
--  作者：hbhb
--  发布时间：2014/12/28 19:40:00
--  
谢谢！哪个更好？
--  作者：有点甜
--  发布时间：2014/12/28 19:41:00
--  
 一样，喜欢哪个就用哪个。