Dim dt1 As DataTable = DataTables("表A") Dim dt2 As DataTable = DataTables("表B") Dim ls As new List(Of String) For Each dr As DataRow In dt1.datarows If ls.Contains(dr("第一列")) = False Then ls.add(dr("第一列")) End If Next For Each dr As DataRow In dt2.datarows If ls.Contains(dr("第一列")) = False Then ls.add(dr("第一列")) End If Next Dim str As String = String.Join("|", ls.ToArray) msgbox(str) Tables("表C").cols("第一列").ComboList = str
|