主题：二个表数据合并到一个临时表中如何处理

Dim s1 As List(Of String) = DataTables("表A").GetValues("第一列", "第一列 is not null")
Dim s2 As List(Of String) = DataTables("表B").GetValues("第一列", "第一列 is not null")
For Each s As String In s1
    Dim fdr As DataRow = DataTables("表D").Find("第一列 = '" & s & "'")
    If fdr Is Nothing Then
        fdr = DataTables("表D").AddNew
        fdr("第一列") = s
    End If
Next
For Each s As String In s2
    Dim fdr As DataRow = DataTables("表D").Find("第一列 = '" & s & "'")
    If fdr Is Nothing Then
        fdr = DataTables("表D").AddNew
        fdr("第一列") = s
    End If
Next