| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 请教 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=80123) |
| -- 作者：hbhb -- 发布时间：2016/1/16 17:03:00 -- 请教 大师：表的CellButtonClick的 下面的代码为何不起作用？ If e.Col.name = "pzzb44" Or e.Col.name = "pzzb45" Then e.Cancel = True Forms("frmTzInfo").Open If Forms("frmTzInfo").Opened Then Dim cb1 As WinForm.CheckBox = Forms("frmTzInfo").Controls("CheckBox1") cb1.Checked = True cb1.Enabled = False End If End If |
| -- 作者：大红袍 -- 发布时间：2016/1/16 17:21:00 -- 1、此窗口不能是模式窗口；
2、加入msgbox，看是否进入执行了代码 |
| -- 作者：hbhb -- 发布时间：2016/1/16 17:39:00 -- 谢谢！ 再请问CheckBox控件的控制 如何实现在选中状态变化前，进行提醒控制。就是说如果同意选中就选中，否则不选中？是否可以这样写？ If e.Sender.Checked = True Then if ok then e.Sender.Checked = True elseif no then e.Sender.Checked = false end if End If |
| -- 作者：大红袍 -- 发布时间：2016/1/16 17:43:00 -- CheckedChanged事件
\'提示的代码 |
| -- 作者：hbhb -- 发布时间：2016/1/16 18:05:00 -- 谢谢！ |
| -- 作者：hbhb -- 发布时间：2016/1/16 18:26:00 -- 再请教，如果原来没有选中，则进行以上判断，如果原来就已经选中就不进行判断？ |
| -- 作者：大红袍 -- 发布时间：2016/1/16 19:15:00 -- If e.Sender.Checked = True Then
End If |