以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  锁定复选框  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65534)
--  作者：qinlao666
--  发布时间：2015/3/18 8:25:00
--  锁定复选框
请教老师，如同所示 ，我想当审核通过以后，禁止修改方案
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20150318082105.jpg
图片点击可在新窗口打开查看
--  作者：Bin
--  发布时间：2015/3/18 8:38:00
--  
if tables("XX").current("审核")= true then
     forms("XX").controls("复选框").endabled = false
end if
--  作者：qinlao666
--  发布时间：2015/3/18 10:02:00
--  
老师我把代码写在窗口的afterload事件中，显示“未找到类型“CheckBox”的公共成员“endabled”
--  作者：Bin
--  发布时间：2015/3/18 10:04:00
--  
enabled
--  作者：qinlao666
--  发布时间：2015/3/18 10:10:00
--  
刚我也试过enabled，可是好像IF的判断无效，不管审核列是否为真，复选框都是false
--  作者：qinlao666
--  发布时间：2015/3/18 10:13:00
--  
后来我有命令改成
If Tables("设计方案").current("审核")= True Then
    forms("设计方案").controls("方案").endabled = False   
else
forms("设计方案").controls("方案").endabled = true  
else
End If

运行的结果是不管审核列是否为真，复选框都是没有被锁定，都能操作
--  作者：有点甜
--  发布时间：2015/3/18 10:14:00
--  
forms("XX").controls("复选框").Enabled = not Tables("XX").current("审核")
--  作者：有点甜
--  发布时间：2015/3/18 10:17:00
--  
以下是引用qinlao666在2015/3/18 10:13:00的发言：
后来我有命令改成
 

运行的结果是不管审核列是否为真，复选框都是没有被锁定，都能操作

 

你要点击审核或者店家取消审核的按钮，对应的代码才会执行啊。
--  作者：有点甜
--  发布时间：2015/3/18 10:17:00
--  

 在需要判断的任何事件里，加入下面这段代码

 

forms("XX").controls("复选框").Enabled = not Tables("XX").current("审核")
--  作者：qinlao666
--  发布时间：2015/3/18 11:37:00
--  
问题解决了，谢谢老师