主题：排除字符串中的重复名字。

从表中提取某一列的不同值后，通过集合、数组后再转换成一 个字符串，如这一列中有“李三，黄刚" 和”黄刚,李三"两个多值数据，转换成字符串后会形成“李三，黄刚，黄刚,李三”，有什么简单的方法能排除字符串中的相同值？

参考

 

Dim dt As DataTable = DataTables("表A")
Dim ls As new List(Of String)
For Each dr As DataRow In dt.Select("")
    For Each s As String In dr("第一列").split(",")
        If ls.Contains(s) = False Then
            ls.add(s)
        End If
    Next
Next
msgbox(String.join(",", ls.ToArray))

可以，谢谢。