以下是原来权限设置的代码，请看看是否有误（BCDEFGH是各员工的名称）

Select Case User.Name
    Case "B","C","F","G","H"
        Tables("集团员工档案").Visible = False
End Select
Select Case User.Name
    Case "D","E"
        Tables("集团员工档案").Cols.Remove("试用期工资")
        Tables("集团员工档案").Cols.Remove("转正后薪级")
        Tables("集团员工档案").Cols.Remove("目前薪资")
        Tables("集团员工档案").Cols.Remove("目前薪级")
        Tables("集团员工档案").Cols.Remove("薪资变动记录")
End Select
Select Case User.Name
    Case "F","G","H"
        Tables("网站业务系统密码信息记录").Visible = False
End Select
Select Case User.Name
    Case "B","C","D","E","F","G","H"
        Tables("员工薪酬福利").Visible = False
End Select
Select Case User.Name
    Case "B","C","D","E","F","G","H"
        Tables("薪资变动表").Visible = False
End Select
Select Case User.Name
    Case "B","C","F","G","H"
        Tables("员工试用与转正事务").Visible = False
    Case "D","E"
        Tables("员工试用与转正事务").Cols.Remove("试用薪资")
        Tables("员工试用与转正事务").Cols.Remove("转正岗级")
        Tables("员工试用与转正事务").Cols.Remove("转正岗级工资")
End Select
Select Case User.Name
    Case "B","C","D","E","F","G","H"
        Tables("员工岗级晋升或降级").Visible = False
End Select
Select Case User.Name
    Case "B","C","F","G","H"
        Tables("员工离职事务").Visible = False
End Select
Select Case User.Name
    Case "B","C","F","G","H"
        Tables("员工请假或假期记录").Visible = False
End Select
Select Case User.Name
    Case "B","C","D","E","F","G","H"
        Tables("员工入职一周访谈记录").Visible = False
End Select
Select Case User.Name
    Case "B","C","D","E","F","G","H"
        Tables("员工入职三十天访谈记录").Visible = False
End Select
Select Case User.Name
    Case "B","C","F","G","H"
        Tables("员工岗级晋升考核评定").Visible = False
    Case "D","E"
        Tables("员工岗级晋升考核评定").Cols.Remove("原岗级")
        Tables("员工岗级晋升考核评定").Cols.Remove("申请岗级")
End Select
Select Case User.Name
    Case "C","F","G","H"
        Tables("人员配置情况").Visible = False
End Select
Select Case User.Name
    Case "C","G","H"
        Tables("人员面试和复试").Visible = False
    Case "D","E","B","F"
        Tables("人员面试和复试").Cols.Remove("薪资要求")
End Select
Select Case User.Name
    Case "B","C","F","G","H"
        Tables("KPI考核记录").Visible = False
End Select
Select Case User.Name
    Case "B","C","F","G","H"
        Tables("部门预算").Visible = False
End Select

If User.Group = "A" Then
    For Each dt As DataTable In DataTables
        dt.AllowClipBoard = False
    Next
End If
If User.Group = "B" Then
    For Each dt As DataTable In DataTables
        dt.AllowClipBoard = False
    Next
End If
If User.Group = "C" Then
    For Each dt As DataTable In DataTables
        dt.AllowClipBoard = False
    Next
End If
If User.Group = "D" Then
    For Each dt As DataTable In DataTables
        dt.AllowClipBoard = False
    Next
End If
If User.Group = "E" Then
    For Each dt As DataTable In DataTables
        dt.AllowClipBoard = False
    Next
End If
If User.Group = "F" Then
    For Each dt As DataTable In DataTables
        dt.AllowClipBoard = False
    Next
End If
If User.Group = "G" Then
    For Each dt As DataTable In DataTables
        dt.AllowClipBoard = False
    Next
End If
If User.Group = "H" Then
    For Each dt As DataTable In DataTables
        dt.AllowClipBoard = False
    Next

看看最后面的总结部分：

http://www.foxtable.com/help/topics/2048.htm

1、去掉系统自带的登陆窗口：

http://www.foxtable.com/help/topics/1796.htm

2、既然已经采用了自定义用户管理和登陆，肯定不能用Syscmd.Project.Switchuser，你要切换用户的话，就得： Forms("你的登陆窗口名").Open()

急求！总结部分理解的不是很清楚，权限代码也进行了修正，自定义窗口登陆的问题解决了，但是所设立的限制某位员工不能看见某列的功能实现了，但是限制看到表的功能依然没有解决，不知是不是我的代码有问题？还是哪里又没弄对？

在项目设置中修改完成，总是跳出自定义的登录窗口，输入账号名称和密码后无反应，必须重新启动计算机才能重新开始，很麻烦，

请老师解答，谢谢！！！！！！

相关代码中，User.Name应该改为_UserName

狐爸，相关代码我已经改为_UserName 和_UserGroup，问题还是没有解决，另外我在项目属性中设置代码（不让相关人员登录窗口后看到“员工薪酬福利”表

Select Case _UserName
    Case "B","C","F","G","H"
        Tables("员工薪酬福利").Visible = False
End Select

不执行，通过自定义窗口进入后，点击员工薪酬福利按钮，窗口死机，？？？？？