以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  遍历中用FIND修改他表中的值，出现错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=58113)
--  作者：xym0606
--  发布时间：2014/10/11 16:38:00
--  遍历中用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

 

关闭提示窗后，能正常运营
--  作者：Bin
--  发布时间：2014/10/11 16:40:00
--  
例子文件发上来,纸上不谈兵
--  作者：菲舍尔
--  发布时间：2014/10/11 16:41:00
--  

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

 

还没有明白你的逻辑！
--  作者：xym0606
--  发布时间：2014/10/11 16:59:00
--  
谢谢菲舍尔，删除后问题解决