自动流转，“用户”改为“角色”代码问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

自动流转代码把用户改为角色

这个代码好像不行，请版主帮改改

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

主题：自动流转，“用户”改为“角色”代码问题