我运行一下代码后，虽然没有出现错误提示，但户主表内提取不到数据，请问哪里出现问题，请指教，谢谢！Dim dr As DataRow
dr = DataTables("基础表").Find("[与户主关系] = '户主'")
Tables("户主表").StopRedraw()
If dr IsNot Nothing Then
For i As Integer = 0 To Tables("基础表").Rows.Count- 1
Dim r As Row = Tables("户主表").AddNew()
r("户主姓名") = dr("户主")
r("家庭住址") = dr("户籍地址")
r("姓名1") = dr("姓名")
r("与户主关系1") = dr("与户主关系")
r("身份证号码1") = dr("身份证号码")
Next
End If
Tables("户主表").ResumeRedraw()
加好友 
发短信
Post By：2019/11/26 23:28:00 [只看该作者]
