以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  逻辑列的选取  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=100329)
--  作者：祸起萧墙123
--  发布时间：2017/5/9 17:03:00
--  逻辑列的选取
请教老师，如果一个表内有两列逻辑列，选取其中一列的话，另一列则无法选择。请问如何实现
--  作者：有点蓝
--  发布时间：2017/5/9 17:51:00
--  

PrepareEdit事件
If e.Col.Name = "逻辑列2" AndAlso e.Row("逻辑列1") = True Then
    e.Cancel = True
End If
--  作者：swagger
--  发布时间：2018/2/12 2:00:00
--  

Select Case e.DataCol.Name
Case "选项A","选项B","选项C","选项D"
If e.NewValue = True Then
Dim nms() As String = {"选项A","选项B","选项C","选项D"}
For Each nm As String In nms
If nm <> e.DataCol.Name AndAlso e.DataRow(nm) = True Then
e.DataRow(nm) = False
End If
Next
End If
End Select