| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 为什么窗口文本的值改变后不执行代码呢 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189910) |
| -- 作者：zhuxinhui -- 发布时间：2024/1/4 11:33:00 -- 为什么窗口文本的值改变后不执行代码呢 If e.form.controls("ComboBox1").value = "窗口" Then e.form.controls("TextBox2").ReadOnly = BooleanEnum.True\'\'菜单区 e.form.controls("TextBox3").ReadOnly = BooleanEnum.True\'\'菜单组 e.form.controls("TextBox4").ReadOnly = BooleanEnum.True\'\'菜单件 e.form.controls("TextBox1").ReadOnly = BooleanEnum.True\'\'表名 e.form.controls("TextBox8").ReadOnly = BooleanEnum.True\'\'列名 ElseIf e.form.controls("ComboBox1").value = "表" Then e.form.controls("TextBox2").ReadOnly = BooleanEnum.True e.form.controls("TextBox3").ReadOnly = BooleanEnum.True e.form.controls("TextBox4").ReadOnly = BooleanEnum.True e.form.controls("TextBox5").ReadOnly = BooleanEnum.True e.form.controls("TextBox6").ReadOnly = BooleanEnum.True ElseIf e.form.controls("ComboBox1").value = "菜单" Then e.form.controls("TextBox5").ReadOnly = BooleanEnum.True e.form.controls("TextBox6").ReadOnly = BooleanEnum.True e.form.controls("TextBox1").ReadOnly = BooleanEnum.True e.form.controls("TextBox8").ReadOnly = BooleanEnum.True End If
|
| -- 作者：有点蓝 -- 发布时间：2024/1/4 11:40:00 -- 代码在什么事件 |
| -- 作者：zhuxinhui -- 发布时间：2024/1/4 11:44:00 -- 文本框的事件基本上放过上去 还是不行 |
| -- 作者：有点蓝 -- 发布时间：2024/1/4 11:45:00 -- 放到"ComboBox1"的valuechanged事件 |
| -- 作者：zhuxinhui -- 发布时间：2024/1/4 11:49:00 -- 试过还是不行 |
| -- 作者：zhuxinhui -- 发布时间：2024/1/4 11:50:00 -- 选定后重新打开窗口才可以，直接选定不可以改变的 |
| -- 作者：有点蓝 -- 发布时间：2024/1/4 11:55:00 -- 其它的要设置为false哦，所有控件都要设置 If e.form.controls("ComboBox1").value = "窗口" Then e.form.controls("只读的控件").ReadOnly = BooleanEnum.True e.form.controls("可编辑的控件").ReadOnly = BooleanEnum.False
|
| -- 作者：zhuxinhui -- 发布时间：2024/1/4 12:38:00 -- 可以了，多谢 |