主题：提取不重复值

参考代码

Dim t As DataTable = DataTables("表A")
Dim ls As new List(Of String)
For Each dr As DataRow In t.Select("第一列 is not null")
    For Each s As String In dr.Lines("第一列")
        If ls.contains(s) = False Then
            ls.add(s)
        End If
    Next
Next
msgbox(String.Join("|", ls.ToArray))