主题：用户角色调用

If User.IsRole("审核") Then
    '审核代码
Else
    MessageBox.Show("你无审核权限!")
End If

Select case user.roles 

case "车床安排","磨床安排","铣床安排" 

e.cancel = false 

case else

e.cancel = true

End select