以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  锁定列问题  (http://foxtable.net/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