主题：遍历中用FIND修改他表中的值，出现错误

.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2014.10.9.1
错误所在事件：窗口,履职排序,AfterLoad
详细错误信息：
Object reference not set to an instance of an object.

代码如下

DataTables("委员资料").LoadFilter = "现任 = 1"
DataTables("委员资料").Load
For Each r As Row In Tables(e.form.name & "_Table1").Rows
Dim dr As DataRow
dr = DataTables("委员资料").Find("档案号 = '" &  r("档案号")  & "'")

    If dr IsNot Nothing Then
        dr("履职") = True
    Else
        dr("履职") = False
    End If
Next
DataTables("委员资料").Save

关闭提示窗后，能正常运营