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


  共有1871人关注过本帖平板打印复制链接

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

帅哥哟,离线,有人找我吗?
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

 回到顶部