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() '一定要保存,以更新后台的流程开始标记
[此贴子已经被作者于2021/9/19 13:34:24编辑过]