标题：为什么窗口文本的值改变后不执行代码呢

1楼

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

2楼

有点蓝 发表于：2024/1/4 11:40:00

代码在什么事件

3楼

zhuxinhui 发表于：2024/1/4 11:44:00

文本框的事件基本上放过上去

还是不行

4楼

有点蓝 发表于：2024/1/4 11:45:00

放到"ComboBox1"的valuechanged事件

5楼

zhuxinhui 发表于：2024/1/4 11:49:00

试过还是不行

6楼

zhuxinhui 发表于：2024/1/4 11:50:00

选定后重新打开窗口才可以，直接选定不可以改变的

7楼

有点蓝 发表于：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

8楼

zhuxinhui 发表于：2024/1/4 12:38:00

可以了，多谢

共8 条记录, 每页显示 10 条, 页签: [1]