主题：如何将未找的记录直接补充？

Dim dt1 As DataTable = DataTables("员工资料")
Dim dt2 As DataTable = DataTables("粮农直补")
For Each dr As DataRow In dt2.DataRows
    Dim fdr As DataRow = dt1.find("身份证号 = '" & dr("身份证号") & "'")
    If fdr IsNot Nothing Then
        fdr("姓名")=  dr("姓名")
    Else
        Dim ndr As DataRow = DT1.ADDNEW()

        ndr("身份证号") = dr("身份证号")

        ndr("姓名") = dr("姓名")
    End If
Next