- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]复选框选中后，禁止编辑 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=91926)
-- 发布时间：2016/10/22 1:42:00
-- [求助]复选框选中后，禁止编辑
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试.table |
表是禁止编辑的，只能在新增窗口中编辑
双击表某行，打开新增窗口，如果审核列值为true的话，则禁止在“新增窗口”中编辑，代码要如何写呢
[此贴子已经被作者于2016/10/22 11:42:00编辑过]
-- 发布时间：2016/10/22 8:00:00
--
“审核”的CheckedChanged事件：
Dim TextBox1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim TextBox2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim TextBox3 As WinForm.TextBox = e.Form.Controls("TextBox3")
Dim TextBox4 As WinForm.TextBox = e.Form.Controls("TextBox4")
Dim tbs() As WinForm.TextBox = {TextBox1,TextBox2,TextBox3,TextBox4}
For Each tb As WinForm.TextBox In tbs
tb.ReadOnly = iif( e.sender.Checked = True,1,0)
Next
-- 发布时间：2016/10/22 11:45:00
--
有没有更简单点的呢，在窗口afterload里面判断，有没有办法
-- 发布时间：2016/10/22 14:11:00
--
2楼方法就可以了。
-- 发布时间：2016/10/22 16:33:00
--
以下是引用有点蓝在2016/10/22 14:11:00的发言：
2楼方法就可以了。
2楼方法就可以了。
这个代码只能针对textbox的按钮，正常窗口也有其他按钮，想要都禁止编辑
-- 发布时间：2016/10/22 16:49:00
--
遍历控件：http://www.foxtable.com/webhelp/scr/1849.htm
-- 发布时间：2016/10/22 17:25:00
--
最简单的办法，设置在窗口的全局Enter事件：
If e.Sender.Name <> "审核" Then
e.Sender.Readonly = iif(e.Form.Controls("审核").checked,Booleanenum.True,Booleanenum.False)
End If
e.Sender.Readonly = iif(e.Form.Controls("审核").checked,Booleanenum.True,Booleanenum.False)
End If
-- 发布时间：2016/10/22 19:34:00
--
以下是引用狐狸爸爸在2016/10/22 17:25:00的发言：
最简单的办法，设置在窗口的全局Enter事件：
If e.Sender.Name <> "审核" Then
e.Sender.Readonly = iif(e.Form.Controls("审核").checked,Booleanenum.True,Booleanenum.False)
End If
e.Sender.Readonly = iif(e.Form.Controls("审核").checked,Booleanenum.True,Booleanenum.False)
End If
非常感谢