以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]窗口控件只读属性设置  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=85038)
--  作者：zcgmxf
--  发布时间：2016/5/16 13:57:00
--  [求助]窗口控件只读属性设置
老师，我以前的一个窗口的控件的“只读”属性设为“true”后，控件就不能直接编辑了。怎么现在不行了？
--  作者：大红袍
--  发布时间：2016/5/16 14:20:00
--  
 不可能，什么控件，上传实例。
--  作者：zcgmxf
--  发布时间：2016/5/16 14:43:00
--  

红袍老师，我想也不可能，在窗口的全局事件（Enter),我加入了下面一段代码就不行了。我不明白，属性设置应该是最高的权限啊。

Dim r As Row = Tables("登记总表").current
Dim km As WinForm.CheckBox = e.Form.Controls("CheckBox1")
Dim cs As WinForm.CheckBox = e.Form.Controls("CheckBox2")
Dim sc As WinForm.CheckBox = e.Form.Controls("CheckBox3")
If r IsNot Nothing Then
    For Each ctl As WinForm.Control In e.Form.Controls
        If  r("确认收费") = True Then
            km.ReadOnly = BooleanEnum.False
            sc.ReadOnly = BooleanEnum.False
            cs.ReadOnly = BooleanEnum.False
            ctl.ReadOnly = BooleanEnum.True
        Else
            ctl.ReadOnly = BooleanEnum.False
        End If
    Next
End If
--  作者：大红袍
--  发布时间：2016/5/16 14:45:00
--  
 你把属性设置成False了啊，自然可以编辑啊。