以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  我如何在窗口全局事件CheckChanged定义复选框勾选后不能再取消的效果  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=85635)
--  作者：scofields
--  发布时间：2016/5/30 17:42:00
--  我如何在窗口全局事件CheckChanged定义复选框勾选后不能再取消的效果
红袍老师，我的窗口里有好多个复选框，我不想对每一个复选框都写入这个代码：
If not e.sender.Checked  Then
    e.sender.Checked = True
    msgbox("该车已经过磅，你无权取消")
End If
这个怎么改写到全局CheckChanged中呢？
--  作者：大红袍
--  发布时间：2016/5/30 17:48:00
--  

If TypeOf e.Sender Is WinForm.CheckBox Then 
    If not e.sender.Checked  Then
        e.sender.Checked = True
        msgbox("该车已经过磅,你无权取消")
    End If
End If
--  作者：scofields
--  发布时间：2016/6/6 22:08:00
--  
红袍老师，我发现此段代码是一旦选中“过磅1”复选框，其他行记录的复选框也会被选中，能设置选中的复选框只对当前行有效吗？
--  作者：Hyphen
--  发布时间：2016/6/7 9:23:00
--  
贴出CheckChanged完整代码
--  作者：scofields
--  发布时间：2016/6/7 11:11:00
--  
红袍老师，这是全部代码。
If TypeOf e.Sender Is WinForm.CheckBox Then  
    If not e.sender.Checked  Then
        e.sender.Checked = True
    End If
End If
--  作者：Hyphen
--  发布时间：2016/6/7 13:44:00
--  
这段代码和表格没有任何关系，如果是绑定的，检查绑定表的表事件