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


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

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

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


加好友 发短信
等级:三尾狐 帖子:705 积分:4897 威望: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

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/14 15:30:00 [只看该作者]

 你执行什么操作以后,才会报错?还是说,直接写代码以后就报错了?

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


加好友 发短信
等级:三尾狐 帖子:705 积分:4897 威望:0 精华:0 注册:2016/5/17 12:03:00
  发帖心情 Post By:2017/4/14 15:46:00 [只看该作者]

登录后,打开系统

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/14 15:51:00 [只看该作者]

 afterOpenProject事件执行下面代码,弹出什么?

 

msgbox(_userroles)

msgbox(_usergroup)

 


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


加好友 发短信
等级:三尾狐 帖子:705 积分:4897 威望:0 精华:0 注册:2016/5/17 12:03:00
  发帖心情 Post By:2017/4/14 16:07:00 [只看该作者]

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

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/14 16:42:00 [只看该作者]

1楼的代码不会报错的,代码没问题。

 

你尝试把你项目的bin文件夹删除,重新打开一下。


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


加好友 发短信
等级:三尾狐 帖子:705 积分:4897 威望:0 精华:0 注册:2016/5/17 12:03:00
  发帖心情 Post By:2017/4/14 18:29:00 [只看该作者]

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

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


加好友 发短信
等级:超级版主 帖子:106652 积分:542443 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/4/14 20:38:00 [只看该作者]

除非_userroles是空值,否则代码不会出错的

 回到顶部