主题：TabControl 分页 权限设定

把页面隐藏即可，如

If user.name = "张三" Then
    Dim pg As WinForm.TabPage
    pg = Forms("窗口1").Controls("TabControl1").TabPages(1)
    pg.Visible = False
End If

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

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

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