以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于复选框勾选后,不能在取消的代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84117)

--  作者:scofields
--  发布时间:2016/4/23 11:11:00
--  关于复选框勾选后,不能在取消的代码
狐爸爸:我有一个困惑,咱们的foxtable 2016能不能对复选框设置一个属性,如果某个用户勾选后,不能再返回取消勾选,并弹出一个MessgeBOX?
--  作者:Hyphen
--  发布时间:2016/4/23 11:18:00
--  
BeforeCheckRows事件

If e.Row.Checked  Then
    e.Cancel = True
    msgbox("不能取消勾选!")
End If

--  作者:Hyphen
--  发布时间:2016/4/23 11:22:00
--  
如果是窗口,CheckedChanged事件

If not e.sender.Checked  Then
    e.sender.Checked = True
    msgbox("不能取消勾选!")
End If

--  作者:scofields
--  发布时间:2016/4/23 11:41:00
--  
狐爸爸:还是想弱弱问一下,如果勾选了,那所在行颜色突出,这个代码又怎么写?
--  作者:Hyphen
--  发布时间:2016/4/23 11:53:00
--  
参考http://www.foxtable.com/help/topics/0656.htm

If e.Row.Checked  Then
    e.Style = "样式1"
End If