用户表的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