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