Dim ls1 As List(Of String) = DataTables("表A").GetValues("第一列") Dim ls2 As List(Of String) = DataTables("表B").GetValues("第一列") For Each s As String In ls1 If ls2.Contains(s) = False Then ls2.add(s) End If Next Dim str As String = String.Join("|", ls2.ToArray) msgbox(str)
加好友 
发短信
Post By：2017/6/26 8:37:00 [显示全部帖子]
