以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助 如何禁止编辑  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115163)
--  作者：mac122
--  发布时间：2018/3/2 9:11:00
--  求助 如何禁止编辑

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看

老师，如截图目前我只能实现用户是否可见，如何能控制都可见但是无法编辑其中一个页面。是否有类似Visible 的函数让其可见不可编辑

Dim tab3 As WinForm.TabControl = e.form.controls("TabControl1")
If User.IsRole("出货记录模块") Then
    tab3.TabPages("出货记录").Visible = False
Else  
    tab3.TabPages("出货记录").Visible = True
End If
--  作者：有点甜
--  发布时间：2018/3/2 9:26:00
--  

参考代码

 

Dim tab3 As WinForm.TabControl = e.form.controls("TabControl1")
For Each c As object In tab3.TabPages(1).children
    c.enabled = False
Next

 

改进代码

 

Dim tab3 As WinForm.TabControl = e.form.controls("TabControl1")
For Each c As object In tab3.TabPages(1).children
    If typeof c Is winform.Table Then
        c.Table.allowEdit = False
    Else
        c.enabled = False
    End If
Next
--  作者：mac122
--  发布时间：2018/3/2 10:13:00
--  
老师，我没太看懂，能不能给我一个样例啊
--  作者：有点甜
--  发布时间：2018/3/2 10:35:00
--  

Dim tab3 As WinForm.TabControl = e.form.controls("TabControl1")
If User.IsRole("出货记录模块") Then
    For Each c As object In tab3.TabPages("出货记录").children
        If typeof c Is winform.Table Then
            c.Table.allowEdit = False
        Else
            c.enabled = False
        End If
    Next
Else
    For Each c As object In tab3.TabPages("出货记录").children
        If typeof c Is winform.Table Then
            c.Table.allowEdit = True
        Else
            c.enabled = True
        End If
    Next
End If
--  作者：mac122
--  发布时间：2018/3/2 14:43:00
--  
多谢老师帮助