以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  锁定和解锁列  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123125)
--  作者：13775189031
--  发布时间：2018/8/8 13:30:00
--  锁定和解锁列

Select Case e.Col.Name
    Case "批准"
        Dim nms() As String = {"批准"}
        For Each nm As String In nms
            If e.Row("审核") = True Then
                e.cancel = True
            End If
        Next
   End Select

 

以上代码是实现“审核”列一旦勾选，批准列就锁定了！

怎样能实现：“批准”列默认锁定，一旦“审核”列勾选，“批准”列才能解锁！
--  作者：有点甜
--  发布时间：2018/8/8 14:22:00
--  

Select Case e.Col.Name
    Case "批准"
            If e.Row("审核") = false Then
                e.cancel = True
            End If
   End Select
--  作者：13775189031
--  发布时间：2018/8/8 15:28:00
--  

还是在KeyDown里么？

 
--  作者：13775189031
--  发布时间：2018/8/8 15:31:00
--  

显示

编译错误：“e”是“private”,因此它在此上下文中不可访问。

错误代码：Select Case e.Col.Name
--  作者：有点甜
--  发布时间：2018/8/8 15:39:00
--  

 代码要写到startEdit或者prepareEdit事件；

 

 
--  作者：13775189031
--  发布时间：2018/8/8 15:45:00
--  

写到startEdit里，还是显示

编译错误：“e”是“private”,因此它在此上下文中不可访问。

错误代码：Select Case e.Col.Name
--  作者：有点甜
--  发布时间：2018/8/8 16:12:00
--  
关闭项目，重新打开，再输入代码，即可。
--  作者：13775189031
--  发布时间：2018/8/10 13:04:00
--  

谢谢！