主题：权限问题（上传）

情老师们帮忙看看权限设置的问题

1.设置自定义后原来设置的权限不能实现

2.设置自定义后表格里的自动编号不可见，其它关联表的内容消失

考虑到图标占空间，怕不能上传，设计中的images文件包没有上传。

小弟特传个例让大家帮忙看看，问题在哪里，谢谢！！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目（ss1）.rar

     你这个权限怎么可能会执行呢,AfterOpenProject  这个事件是还没有登录  就已经执行了.而_UserName是要登录后

谢谢指教，按你的方法试了，只有一个表被限制，其它需要被限制不能看的表依然跳出？？

你的代码写得很乱，应该下面这样写：

 

Select Case _UserName
    Case "H"
        Tables("昆自集团员工档案").Visible = False
        Tables("人员统计").Visible = False
        Tables("员工档案筛选").Visible = False
        Tables("职称执业资格").Visible = False
        Tables("员工岗级晋升考核评定").Visible = False
        Tables("员工请假或假期记录").Visible = False
        Tables("员工离职事务").Visible = False
        Tables("员工薪酬福利").Visible = False
    Case "B"
        Tables("员工薪酬福利").Visible = False
        Tables("昆自集团员工档案").Cols.Remove("试用工资")
        Tables("昆自集团员工档案").Cols.Remove("转正定级")
        Tables("昆自集团员工档案").Cols.Remove("目前薪资")
        Tables("昆自集团员工档案").Cols.Remove("目前薪级")
        Tables("昆自集团员工档案").Cols.Remove("薪资变动记录")
        Tables("员工岗级晋升考核评定").Cols.Remove("原岗级")
        Tables("员工岗级晋升考核评定").Cols.Remove("申请岗级")
        Tables("职称执业资格").Cols.Remove("挂靠")
        Tables("职称执业资格").Cols.Remove("挂靠费用")
      Case "C","F","G","H"
        Tables("员工薪酬福利").Visible = False
End Select
Dim dt As DataTable = DataTables("昆自集团员工档案")
Dim drs As New List(of DataRow)
drs = dt.Select("入职时间 is not Null")
For Each dr As DataRow In drs
    dr("工龄") = Math.Round(DateDiff("m",dr("入职时间"),Date.Today())/12,1)
Next

 

代码放在登陆窗口确定按钮的后面，至于被限制的表依然看得见，是你自己的代码有问题，仔细检查自己的代码逻辑。

谢谢狐爸！！要学习的地方很多