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

表“员工资料”与表“粮农直补”都有“身份证号”和“姓名”两个字段，在“粮农直补”中找到与“员工资料”“身份证号”相同的行，并将"姓名"复制到“员工资料”中。如果没有找到，则在“员工资料”增加行，并将“身份证号”和“姓名”复制。如何编写问号中的语句？或用其他方法 ？

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
        DT1.ADDNEW()
        ????
    End If
Next

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

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