Foxtable(狐表)用户栏目专家坐堂 → 未将对象引用到实例的错误


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

主题:未将对象引用到实例的错误

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


加好友 发短信
等级:三尾狐 帖子:706 积分:4908 威望:0 精华:0 注册:2016/5/17 12:03:00
未将对象引用到实例的错误  发帖心情 Post By:2017/4/14 15:01:00 [显示全部帖子]

 用户表的prepareedit事件:会出现未将对象引用到实例的错误
Case "用户编号"
        If _userroles.Contains("系统维护") = True OrElse _usergroup = "系统管理" Then
            e.Cancel = False
        Else
            e.Cancel = True
        End If
上面的代码屏蔽后正常了,是什么原因?
Select Case 图片点击可在新窗口打开查看e.Col.name
    Case "group"
        If _userroles.Contains("系统维护") = True OrElse _usergroup = "系统管理" Then
            e.Col.AllowDirectType = False
            e.Col.ComboList = DataTables("系统设置表").SQLGetComboListString("用户分组")
        Else
            e.Cancel = True
        End If
    Case "roles"
        If _userroles.Contains("系统维护") = True OrElse _usergroup = "系统管理" Then
            e.Col.AllowDirectType = False
            e.Col.DataCol.ExtendType = ExtendTypeEnum.Values
            e.Col.ComboList = DataTables("系统设置表").SQLGetComboListString("用户角色")
        Else
            e.Cancel = True
        End If
    Case "好友"
        If _userroles.Contains("系统维护") = True OrElse _usergroup = "系统管理" Then
            e.Col.AllowEdit = True
            e.Cancel = False
        Else
            e.Cancel = True
        End If
    Case "用户编号"
        If _userroles.Contains("系统维护") = True OrElse _usergroup = "系统管理" Then
            e.Cancel = False
        Else
            e.Cancel = True
        End If
    Case "标注"
        If _userroles.Contains("系统维护") = True OrElse _usergroup = "系统管理" Then
            e.Cancel = False
        Else
            e.Cancel = True
        End If
End Select

 回到顶部
帅哥哟,离线,有人找我吗?
lk15502
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:706 积分:4908 威望:0 精华:0 注册:2016/5/17 12:03:00
  发帖心情 Post By:2017/4/14 15:46:00 [显示全部帖子]

登录后,打开系统

 回到顶部
帅哥哟,离线,有人找我吗?
lk15502
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:706 积分:4908 威望:0 精华:0 注册:2016/5/17 12:03:00
  发帖心情 Post By:2017/4/14 16:07:00 [显示全部帖子]

afteropenpproject事件代码:
  Forms("用户登录").open()
msgbox(_userroles)
msgbox(_usergroup)
还是一样的错误,弹窗是显示正常的分组和角色

 回到顶部
帅哥哟,离线,有人找我吗?
lk15502
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:706 积分:4908 威望:0 精华:0 注册:2016/5/17 12:03:00
  发帖心情 Post By:2017/4/14 18:29:00 [显示全部帖子]

bin文件夹删除,还是一样!

 回到顶部