Foxtable(狐表)用户栏目专家坐堂 → [求助]LoadUserSetting事件


  共有1917人关注过本帖树形打印复制链接

主题:[求助]LoadUserSetting事件

帅哥哟,离线,有人找我吗?
18107532666
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:116 积分:1055 威望:0 精华:0 注册:2019/12/27 20:56:00
[求助]LoadUserSetting事件  发帖心情 Post By:2021/9/19 13:34:00 [只看该作者]

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'" '如果物资审核员登录只加载进度列为1B2A的行

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

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

        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'" '如果物资审核员登录只加载进度列为1B2A的行

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

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

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

    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编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/22 8:39:00 [只看该作者]

1、关闭退出项目,删除项目所在的文件夹里的bin目录,然后重启项目试试。
2、调试技巧:http://www.foxtable.com/webhelp/scr/1485.htm,看哪一句代码出错

 回到顶部