主题：锁定和解锁列

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

 

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

怎样能实现：“批准”列默认锁定，一旦“审核”列勾选，“批准”列才能解锁！

Select Case e.Col.Name
    Case "批准"
            If e.Row("审核") = false Then
                e.cancel = True
            End If
   End Select

还是在KeyDown里么？

 

显示

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

错误代码：Select Case e.Col.Name

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

 

 

写到startEdit里，还是显示

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

错误代码：Select Case e.Col.Name

关闭项目，重新打开，再输入代码，即可。

谢谢！