以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]集合排序  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79133)
--  作者：blsu33
--  发布时间：2015/12/24 17:31:00
--  [求助]集合排序
老师，
  这个可以做到吗

Array.Sort(e.DataRow("取值列"), e.DataRow("取值显示列"))
--  作者：大红袍
--  发布时间：2015/12/24 17:33:00
--  
不明白你的意思，直接说意图
--  作者：blsu33
--  发布时间：2015/12/24 17:37:00
--  
e.DataRow("取值列")
是 “张三、李四”
e.DataRow("取值显示列")
是李四、张三、王五、赵六
希望这两个数组 张三、李四 这两部分至少是相同的
--  作者：大红袍
--  发布时间：2015/12/24 17:47:00
--  
Dim str1 As String = "张三,李四"
Dim str2 As String = "李四,张三,王五,赵六"
Dim flag As Boolean = True
For Each s As String In str1.split(",")
    If "," & str2 & "," Like "*" & s & "*" = False Then
        flag = False
        Exit For
    End If
Next
If flag Then
    str2 = "," & str2 & ","
    For Each s As String In str1.split(",")
        str2 = str2.replace(s & ",", "")
    Next
    str2 = str1  & str2
End If
msgbox(str2.trim(","))