- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]怎样用代码去锁定控件（已解决） (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=19521)
-- 发布时间：2012/5/12 22:12:00
-- [求助]怎样用代码去锁定控件（已解决）
请教各位大侠，在窗口控件Validating中，怎么用代码根据指定条件去锁定指定的多个控件？O(∩_∩)O谢谢
[此贴子已经被作者于2012-5-14 11:07:25编辑过]
-- 发布时间：2012/5/13 8:53:00
--
if 条件成立 then
e.Form.Controls("控件1").ReadOnly = BooleanEnum.True
e.Form.Controls("控件2").ReadOnly = BooleanEnum.True
e.Form.Controls("控件3").ReadOnly = BooleanEnum.True
else
e.Form.Controls("控件1").ReadOnly = BooleanEnum.False
e.Form.Controls("控件2").ReadOnly = BooleanEnum.False
e.Form.Controls("控件3").ReadOnly = BooleanEnum.False
end if
-- 发布时间：2012/5/13 12:55:00
--
狐爸，报警了呢
此主题相关图片如下：qq截图20120513125456.png
-- 发布时间：2012/5/14 8:20:00
--
我的没有问题，是你自己其他代码错误，自己检查一下吧。
建议看看：
http://www.foxtable.com/help/topics/1485.htm
-- 发布时间：2012/5/14 10:41:00
--
我新建了一个，用着还是不行呀
If e.Form.Controls("TextBox6") = "补发" Then
e.Form.Controls("TextBox1").ReadOnly = BooleanEnum.True
e.Form.Controls("TextBox2").ReadOnly = BooleanEnum.True
e.Form.Controls("TextBox3").ReadOnly = BooleanEnum.True
Else
e.Form.Controls("TextBox1").ReadOnly = BooleanEnum.False
e.Form.Controls("TextBox2").ReadOnly = BooleanEnum.False
e.Form.Controls("TextBox3").ReadOnly = BooleanEnum.False
End If
这个难道有错吗？
-- 发布时间：2012/5/14 10:42:00
--
If e.Form.Controls("TextBox6").Value = "补发" Then
e.Form.Controls("TextBox1").ReadOnly = BooleanEnum.True
e.Form.Controls("TextBox2").ReadOnly = BooleanEnum.True
e.Form.Controls("TextBox3").ReadOnly = BooleanEnum.True
Else
e.Form.Controls("TextBox1").ReadOnly = BooleanEnum.False
e.Form.Controls("TextBox2").ReadOnly = BooleanEnum.False
e.Form.Controls("TextBox3").ReadOnly = BooleanEnum.False
End If
-- 发布时间：2012/5/14 11:07:00
--
不好意思，忘了一个Value 没加上去，小弟粗心了，谢谢狐爸