Dim dr2 As DataRow
For Each dr1 As DataRow In DataTables("来源表").datarows
dr2 = DataTables("目的表").find("姓名=\'" & dr1("姓名") & "\'")
If dr2 Is Nothing Then
dr2 = DataTables("目的表").AddNew()
End If
For Each dc As DataCol In DataTables("来源表").DataCols
If dr2.isnull(dc.Name) Then
dr2(dc.Name) = dr1(dc.name)
End If
Next
Next