以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自动修改  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130391)
--  作者：wjhmmj
--  发布时间：2019/1/21 0:21:00
--  自动修改
A表1列、2列、3列，B表1列、2列，A表1列和B表1列为编号列，表2列和B表3列为编号列名称列，修改A表2列的行的内容时，怎样自动修改B表3列对应编号的所在列的行的内容。谢谢！
--  作者：有点甜
--  发布时间：2019/1/21 10:12:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/1453.htm

 
--  作者：wjhmmj
--  发布时间：2019/1/22 20:11:00
--  
在事件DataColChanged.
在B表中2列为逻辑，当修改2列行为true时，想查找A表中满足以下条件行中2列的值修改为"已归档"。
Select Case e.DataCol.Name
Case "2"
Dim dr As DataRow
dr = DataTables("A").Find("[1] = \'" & e.DataRow("1") & "\' and [2] <> \'" & "待归档" & "\'")
If dr Is Nothing Then              
dr("2") = "已归档"
Else
MessageBox.Show("先退回,后归档.","提示")
e.DataRow("2") = False
End If
End Select

但运行时：
详细错误信息：
调用的目标发生了异常。
未将对象引用设置到对象的实例。

敬请修改，谢谢！
[此贴子已经被作者于2019/1/22 20:14:01编辑过]
--  作者：有点蓝
--  发布时间：2019/1/22 20:20:00
--  
什么1列，2列的看的莫名其妙，建议尽量使用有意义的列名

Select Case e.DataCol.Name
    Case "2"
        Dim dr As DataRow
        dr = DataTables("A").Find("[1] = \'" & e.DataRow("1") & "\' and [2] <> \'" & "待归档" & "\'")
        If dr IsNot Nothing Then
            dr("2") = "已归档"
        Else
            MessageBox.Show("先退回,后归档.","提示")
            e.DataRow("2") = False
        End If
End Select
--  作者：wjhmmj
--  发布时间：2019/1/22 20:54:00
--  
在事件DataColChanged.
在B表中“状态”列为逻辑，当修改“状态”列行为true时，想查找A表中满足以下条件行中“状态”列的值修改为"已归档"。
Select Case e.DataCol.Name
Case "状态"
Dim dr As DataRow
dr = DataTables("A").Find("[编号] = \'" & e.DataRow("编号") & "\' and [状态] <> \'" & "待归档" & "\'")
If dr Is Nothing Then              
dr("状态") = "已归档"
Else
MessageBox.Show("先退回,后归档.","提示")
e.DataRow("状态") = False
End If
End Select

但运行时：
详细错误信息：
调用的目标发生了异常。
未将对象引用设置到对象的实例。

敬请修改，谢谢！

还是不行，请指教，谢谢！
--  作者：有点蓝
--  发布时间：2019/1/22 21:10:00
--  
看4楼红色字，is改为isnot
--  作者：wjhmmj
--  发布时间：2019/1/22 21:14:00
--  
is改为isnot后，运行的是以下代码：
Else
MessageBox.Show("先退回,后归档.","提示")
e.DataRow("状态") = False
End If

没作用

敬请修改，指教，谢谢！！！
[此贴子已经被作者于2019/1/22 21:30:40编辑过]
--  作者：有点蓝
--  发布时间：2019/1/22 21:38:00
--  
A表存在符合下面条件的数据吗？截图看看

DataTables("A").Find("[编号] = \'" & e.DataRow("编号") & "\' and [状态] <> \'" & "待归档" & "\'")
--  作者：wjhmmj
--  发布时间：2019/1/22 21:54:00
--  
存在
--  作者：有点蓝
--  发布时间：2019/1/22 22:03:00
--  
上传具体实例说明