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

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

还没有明白你的逻辑！