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