LoadUserSetting事件  因为有包含关系  我把代码转了一下  结果启动时提示 错误所在事件：项目,LoadUserSetting

详细错误信息：未将对象引用设置到对象的实例。未转之前没有提示

原代码：

Dim Filter As String \'filter定义成字符串
Dim bj As String \'bj定义成字符串
Select Case _UserGroup \' _User.Name改一下

Case "物资录入员"
        Filter = "进度 = \'1A\'" \'如果物资录入员登录只加载进度列为1A的行

    Case "物资审核员"
        Filter = "进度 = \'1B\' Or 进度 = \'2A\'" \'如果物资审核员登录只加载进度列为1B或2A的行

        bj = "2A"\'2A赋值给bj

    Case "物资提单员"
        Filter = "进度 = \'2B\' Or 进度 = \'3A\'" \'如果物资提单员登录只加载进度列为2B或3A的行

        bj = "3A"\'2A赋值给bj

    Case Else
        Filter = "" \'其他用户没有加载条件为空
End Select
DataTables("物资进场台账").LoadFilter = Filter\'设置物资进场台账条件加载为Filter
DataTables("物资进场台账").Load()\'开始加载物资进场台账
\'设置本流程开始标记
If bj >"" Then \'如果bj不为空
    For Each dr As DataRow In DataTables("物资进场台账").DataRows\'定义dr为物资进场台账的行并循环
        dr("进度") = bj\'把bj填入进度列
    Next
End If
DataTables("物资进场台账").Save() \'一定要保存，以更新后台的流程开始标记

现代码

Dim Filter As String \'filter定义成字符串

Dim bj As String \'bj定义成字符串

If _UserGroup.Contains("物资录入员") Then

    Filter = "进度 = \'1A\'" \'如果物资录入员登录只加载进度列为1A的行

ElseIf _UserGroup.Contains("物资审核员") Then

    Filter = "进度 = \'1B\' Or 进度 = \'2A\'" \'如果物资审核员登录只加载进度列为1B或2A的行

    bj = "2A" \'2A赋值给bj

ElseIf _UserGroup.Contains("物资提单员") Then

     Filter = "进度 = \'2B\' Or 进度 = \'3A\'" \'如果物资提单员登录只加载进度列为2B或3A的行

    bj = "3A" \'2A赋值给bj

Else

    Filter = "" \'其他用户没有加载条件为空

End If

DataTables("物资进场台账").LoadFilter = Filter  \'设置物资进场台账条件加载为Filter

DataTables("物资进场台账").Load()  \'开始加载物资进场台账

\'设置本流程开始标记

If bj >"" Then \'如果bj不为空

    For Each dr As DataRow In DataTables("物资进场台账").DataRows \'定义dr为物资进场台账的行并循环

        dr("进度") = bj  \'把bj填入进度列

    Next

End If

DataTables("物资进场台账").Save() \'一定要保存,以更新后台的流程开始标记