主题：【求助】多值字段多项选中的结果显示

参考代码

Dim str As String = "A,B,C,D"
Dim ss As String = "C,A,B"
Dim ary = ss.split(",")
Dim nstr As String = ""
For Each s As String In str.split(",")
    If ary.Indexof(ary, s) >= 0 Then
        nstr &= s & ","
    End If
Next
msgbox(nstr.trim(","))