以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教按用户的角色设置加载用户负责处理的行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174607)

--  作者:13315253800
--  发布时间:2022/1/23 10:17:00
--  请教按用户的角色设置加载用户负责处理的行

老师您好!我依照帮助中“数据的自动流转之二”的案例想改成按用户的角色设置加载用户负责处理的行,在项目事件LoadUserSetting中设置代码如下:提示错误,敬请老师指教

\'加载登录用户的角色负责处理的行, 并设置本流程开始标记
Dim
Filter As String
Dim
bj As String
Select
Case
User.IsRole
    Case
("提交")
        Filter = "
进度 Is Null Or 进度 = \'1A\'" \'进度为空或进度一开始
       
bj = "1A"
   
Case
("审核")
        Filter = "
进度 = \'1B\' Or 进度 = \'2A\'" \'进度一结束或进度二开始
        bj = "2A"
   
Case
("审核2")
        Filter = "
= \'2B\' Or 进度 = \'3A\'" \'进度二结束或进度三开始
        bj = "3A"
   
Case
("批准")
        Filter = "
进度 = \'3B\' Or 进度 = \'4A\'" \'进度三结束或进度四开始
        bj = "4A"
   
Case Else
        Filter = "" \'
其他用户加载全部记录
End
Select
DataTables
("
B").LoadFilter = Filter
DataTables
("
B").Load()
\'
设置本流程开始标记
If
bj >"" Then
    For Each dr As DataRow In DataTables("
B").DataRows
        dr("
进度") = bj
    Next
End If
DataTables("
B").Save() \'一定要保存,以更新后台的流程开始标记

 


--  作者:13315253800
--  发布时间:2022/1/23 15:35:00
--  
已设置的角色是“提交”、“审核”、“批准”
--  作者:有点蓝
--  发布时间:2022/1/23 21:26:00
--  
使用if判断

if User.IsRole ("提交") then

elseif User.IsRole ("审核") then

elseif ....

Else
        Filter = ""
end if

--  作者:13315253800
--  发布时间:2022/1/23 22:04:00
--  
谢谢老师!我试试。
--  作者:13315253800
--  发布时间:2022/1/24 21:01:00
--  
蓝老师感谢您的指导,实验成功。