以下是引用狐狸爸爸在2011-3-3 12:00:00的发言: Dim Lst1 As List(of String)= DataTables("表A").GetUniqueValues("第一列") Dim Lst2 As List(of String)= DataTables("表A").GetUniqueValues("第二列") For Each v As String In Lst2 If Lst1.Contains(v) = False Then lst1.Add(v) Next Next