主题：让用户处理不同的列无效

在项目的AfterOpenProject事件中设置代码：

Select Case User.Name
    Case "叶垚真","徐闻聪"
        Tables("销售定单主表").Cols.Remove("工厂销售总金额")
        Tables("销售定单主表").Cols.Remove("已付工厂款")
End Select

 

 

但执行无效，主窗口中仍然可见一下两列，请问原因

---

以下内容是专门发给有点蓝浏览

---

 

Select Case User.Name
    Case "叶垚真","徐闻聪"
        Tables(e.form.name & "_Table1").Cols.Remove("工厂销售总金额","已付工厂款")
End Select

那假如是要求用户角色是业务员的时候，无法处理这两列，该如何写代码

If User.Roles = "业务员" Then

就是需要达成和之前你写的代码一样的效果，只不过把用户名筛选换成角色筛选：

Select Case User.Name
    Case "叶垚真","徐闻聪"
        Tables(e.form.name & "_Table1").Cols.Remove("工厂销售总金额","已付工厂款")
End Select

以上代码能够达成预期效果。

 

If User.Roles = "业务员" Then

以上代码无法达成预期效果

 

已经解决，将代码改成如下格式即可：

If User.isrole（ "业务员" ）=true Then

If User.IsRole("业务员") Then