我想从表“村上报表”中提取与“基础表”中身份证号码不一致的记录，保存到表“未被提取数据”中，下面的代码出错在哪里？请指教，谢谢！
Tables("未被提取数据").StopRedraw()
For n As Integer = 1 To DataTables("村上报表").DataRows.Count
Dim dr As Row = Tables("基础表").Current
Dim dr1 As Row = Tables("村上报表").Findrow("[身份证号码] <> '" & dr("身份证号码") & "'")
If dr IsNot Nothing Then
Dim r As Row = Tables("未被提取数据").AddNew()
r("组别") =dr1("组别")
r("与户主关系") =dr1("与户主关系")
r("姓名") =dr1("姓名")
r("身份证号码") =dr1("身份证号码")
r("户籍地址") =dr1("户籍地址")
r("数量") =dr1("数量")
End If
Next
Tables("未被提取数据").ResumeRedraw()
加好友 
发短信
Post By：2020/4/12 20:27:00 [显示全部帖子]
