以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自动流转,“用户”改为“角色”代码问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=174879)

--  作者:xnsiwei
--  发布时间:2022/2/10 15:22:00
--  自动流转,“用户”改为“角色”代码问题
自动流转代码把用户改为角色
这个代码好像不行,请版主帮改改  
Select Case User.IsRole("监测采样")
        Case User.IsRole("监测采样")
            If r("进度") = "监测采样终" Then
                r.Remove
            End If
        Case User.IsRole("监测化验")
            If r("进度") = "监测化验终" Then
                r.Remove
            End If
        Case User.IsRole("监测审核")
            If r("进度") = "监测审核终" Then
                r.Remove
            End If
        Case User.IsRole("监测发布")
            If r("进度") = "监测发布终" Then
                r.Remove
            End If
        Case Else
            Return \'其他用户正常返回
    End Select


--  作者:有点蓝
--  发布时间:2022/2/10 15:49:00
--  
只能使用if判断,不能使用select case