- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=33068)
-- 发布时间：2013/5/13 9:48:00
-- [求助]
求助窗口中如何实现 当 审核 打对勾的时候，输入 里不可编辑？
此主题相关图片如下：(f9@``c~fb2yw5m`_a_}f1s.jpg
-- 发布时间：2013/5/13 9:51:00
--
在控件的CHeckCHanged事件中判断CHECK属性如果是TRUN 就让文本框不可编辑.
如果不懂就上例子.
其实帮助里都有对应内容的.
-- 发布时间：2013/5/13 9:55:00
--
在哪个事件写什么代码呢 谢谢。。
-- 发布时间：2013/5/13 10:02:00
--
上楼说的很明白了啊，在Checkbox1控件值发生变化（CHeckCHanged中写代码）时执行
-- 发布时间：2013/5/13 16:01:00
--
最好在输入款的Enter事件中写代码：
If e.Form.Controls("CheckedBox1").checked Then
e.Sender.ReadOnly = BooleanEnum.True
Else
e.Sender.ReadOnly = BooleanEnum.False
End If
-- 发布时间：2013/5/18 21:28:00
--
以下是引用狐狸爸爸在2013-5-13 16:01:00的发言：
最好在输入款的Enter事件中写代码：
If e.Form.Controls("CheckedBox1").checked Then
e.Sender.ReadOnly = BooleanEnum.True
Else
e.Sender.ReadOnly = BooleanEnum.False
End I
最好在输入款的Enter事件中写代码：
If e.Form.Controls("CheckedBox1").checked Then
e.Sender.ReadOnly = BooleanEnum.True
Else
e.Sender.ReadOnly = BooleanEnum.False
End I
各位老师 上面的代码 在审核那里改成 文本框 的话，代码怎么样修改呢？ 请指教
此主题相关图片如下：4lnz(h~cx9fcbtsp68zvf7.jpg
-- 发布时间：2013/5/20 8:49:00
--
With Forms("窗口3").Controls("textbox1")
If .Value = "" Then
e.Sender.ReadOnly = BooleanEnum.False
Else
e.Sender.ReadOnly = BooleanEnum.True
End If
End With