要从一个表的数据读入另一个表，因发现有些记录未读入，写了个代码查找，并将查找的结果生成一个新表，并在原表中做个标记逻辑列：“核验没读入”，代码如下：
Dim q As new QueryBuilder
q.TableName = "未读入资助明细表名单"
q.Se lectString = "Se lect * from {sqxxb} where (Se lect count(1) As num from {dxxsrxbzmxb} where {dxxsrxbzmxb}.sfzhm = {sqxxb}.身份证号码 ) = 0"
q.C
q.Build
'MainTable = Tables("未读入资助明细表名单")
Dim dr As DataRow
Dim i As Integer
For Each r As Row In Tables("未读入资助明细表名单").Rows
dr = DataTables("sqxxb").SQLFind("[身份证号码] = '" & r("身份证号码") & "'")
If dr IsNot Nothing
dr("核验没读入")=True
msgbox("1")
End If
Next
但是 dr("核验没读入")=True 没有起作用，即没有打钩 msgbox("1")已经执行
不知何故，谢谢！
[此贴子已经被作者于2020/9/17 17:01:51编辑过]
加好友 
发短信
Post By：2020/9/17 16:59:00 [只看该作者]
