以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  遍历中用FIND修改他表中的值,出现错误  (http://foxtable.net/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
--  
谢谢菲舍尔,删除后问题解决