以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  锁定列问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119591)
--  作者：13775189031
--  发布时间：2018/5/28 11:26:00
--  锁定列问题
求教：
例如有4列逻辑列，只要选定其中一列，其他列即锁定，如何实现？
--  作者：有点甜
--  发布时间：2018/5/28 11:37:00
--  

这个意思？

 

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

 
--  作者：13775189031
--  发布时间：2018/5/28 12:27:00
--  
是的是的，谢谢！
--  作者：13775189031
--  发布时间：2018/5/28 12:29:00
--  
如果例如逻辑列，有条件的锁定其他列呢？
比如一列逻辑列，其他列是数据列，一旦逻辑列勾选，即锁定这一行的其他三列
--  作者：有点甜
--  发布时间：2018/5/28 15:11:00
--  
以下是引用13775189031在2018/5/28 12:29:00的发言：
如果例如逻辑列，有条件的锁定其他列呢？
比如一列逻辑列，其他列是数据列，一旦逻辑列勾选，即锁定这一行的其他三列

 

如2楼那样做。有什么问题？

 

你勾选以后，就不能再次修改值了？
--  作者：13775189031
--  发布时间：2018/5/28 16:32:00
--  
勾选逻辑列后，不想整行锁定，仅锁定其中几列内容即可。
--  作者：有点甜
--  发布时间：2018/5/28 18:27:00
--  
以下是引用13775189031在2018/5/28 16:32:00的发言：
勾选逻辑列后，不想整行锁定，仅锁定其中几列内容即可。

 

startEdit事件，写代码

 

Select Case e.Col.Name
    Case "选项A","选项B","选项C","选项D"
        Dim nms() As String = {"选项A","选项B","选项C","选项D"}
        For Each nm As String In nms
            If e.Row(nm) = True Then
                e.cancel = True
            End If
        Next
End Select