以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  TabControl 分页 权限设定  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=111437)
--  作者：xswy
--  发布时间：2017/12/21 21:18:00
--  TabControl 分页 权限设定
TabControl 设定了页1  页2  页3.每页都绑定的单元格
我想让不同的用户可以在指定的页1里操作
怎么实现
图片点击可在新窗口打开查看
--  作者：xswy
--  发布时间：2017/12/21 22:17:00
--  
顶上去~
--  作者：有点甜
--  发布时间：2017/12/21 23:25:00
--  

把页面隐藏即可，如

 

If user.name = "张三" Then
    Dim pg As WinForm.TabPage
    pg = Forms("窗口1").Controls("TabControl1").TabPages(1)
    pg.Visible = False
End If
--  作者：xswy
--  发布时间：2017/12/22 9:54:00
--  
没人么 dalao
--  作者：有点甜
--  发布时间：2017/12/22 10:00:00
--  

看懂3楼代码，不会做上传具体实例

 

http://www.foxtable.com/webhelp/scr/2342.htm

 
--  作者：xswy
--  发布时间：2017/12/22 10:32:00
--  

我把东西传上来。dalao帮忙看一下。
就是想每个用户只能指定面板输入内容
或者只能输入指定的列

[此贴子已经被作者于2017/12/22 11:55:27编辑过]
--  作者：有点甜
--  发布时间：2017/12/22 11:37:00
--  

AfterLoad事件

 

For Each ctl As object In e.Form.controls
    Select Case ctl.BindingField
        Case "售后.仪表编号","售后.仪表类型","售后.程序版本号"
            If User.group = "售后" Then
                ctl.ReadOnly = BooleanEnum.False \'允许编辑
            Else
                ctl.ReadOnly = BooleanEnum.True \'禁止编辑
            End If
        Case "售后.检测结果","售后.维修处理","售后.维修时间"
            If User.Name = "维修" Then
                ctl.ReadOnly = BooleanEnum.False \'允许编辑
            Else
                ctl.ReadOnly = BooleanEnum.True \'禁止编辑
            End If
        Case "售后.送检日期","售后.测试结果","售后.完成日期"
            If User.Name = "检测" Then
                ctl.ReadOnly = BooleanEnum.False \'允许编辑
            Else
                ctl.ReadOnly = BooleanEnum.True \'禁止编辑
            End If
        Case "售后.维修完成"
            If User.Name = "检测" Then
                ctl.enabled = True \'允许编辑
            Else
                ctl.enabled = False \'禁止编辑
            End If
    End Select
Next
--  作者：xswy
--  发布时间：2017/12/22 11:55:00
--  
谢谢dalao 想法已经实现