主题：请教按用户的角色设置加载用户负责处理的行

老师您好！我依照帮助中“数据的自动流转之二”的案例想改成按用户的角色设置加载用户负责处理的行，在项目事件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() '一定要保存,以更新后台的流程开始标记