以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [讨论]如何在关联的子表中锁定字段  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96809)

--  作者:积水成渊
--  发布时间:2017/2/28 10:22:00
--  [讨论]如何在关联的子表中锁定字段
现在有A,B两张表进行了关联,A表为主表,B表子表,这两张表在一个窗口中显示,当B的字段审核状态为已审核时,自动锁定B表的所有字段。求解决办法
--  作者:积水成渊
--  发布时间:2017/2/28 10:25:00
--  
我如下的代码,实现不了功能,求解决   


If e.DataRow("审核状态") = "已审核" Then

Dim cl As Col
cl = Tables("B").Cols("新值")
cl.AllowEdit = false
cl = Tables("B").Cols("审核状态")
cl.AllowEdit = false
 
End If

--  作者:有点色
--  发布时间:2017/2/28 10:32:00
--  

If e.DataCol.name = "审核状态" Then
    For Each cdr As DataRow In e.DataRow.GetChildRows("B")
        cdr.Locked = (e.DataRow("审核状态") = "已审核")
    Next
End If

--  作者:积水成渊
--  发布时间:2017/2/28 11:12:00
--  
提示错误,---------------------------
错误
---------------------------
编译错误:“DataCol”不是“RowColEventArgs”的成员。



错误代码:If e.DataCol.name = "单据状态" Then
---------------------------
确定   
---------------------------


--  作者:积水成渊
--  发布时间:2017/2/28 11:24:00
--  
关联表没有datatable吧
--  作者:有点蓝
--  发布时间:2017/2/28 11:38:00
--  
代码写到A表DataColChanged事件
--  作者:积水成渊
--  发布时间:2017/2/28 13:50:00
--  
谢谢  ,已经解决