主题：求助：如何从一表中，根据ID字段，将每一行中的几个字段写入到另一个表中？

Dim sCols() As String = {"列名1", "列名2", "列名3"}
Dim dCols() As String = {"列名A", "列名B", "列名C"}

For Each dr As DataRow In DataTables("表A").DataRows
    Dim fdr As DataRow = DataTables("表B").Find("ID = '" & dr("ID") & "'")
    If fdr IsNot Nothing
        For i As Integer =0 To sCols.Length -1
            fdr(dCols(i)) = dr(sCols(i))
        Next
    End If
Next

Dim sCols() As String = {"列名1", "列名2", "列名3"}
Dim dCols() As String = {"列名A", "列名B", "列名C"}

For Each dr As DataRow In DataTables("表A").DataRows
    Dim fdr As DataRow = DataTables("表B").Find("ID = '" & dr("ID") & "'")
    If fdr Is Nothing
        fdr = DataTables("表B").AddNew
        fdr("id") = dr("id")
    End If
    For i As Integer =0 To sCols.Length -1
        fdr(dCols(i)) = dr(sCols(i))
    Next
Next