主题：提示信息

请教师帮忙看一下，为什么不行呢。显示MessageBox.Show("此列只有义教专干可以操作,如果必须进行编辑请与管理员联系授权!")
关不了。

Select Case e.Col.name
    Case "学生姓名","学籍号","班级"
        If User.Roles <> "义教专干" AndAlso User.Name <> "开发者" Then
            MessageBox.Show("此列只有义教专干可以操作,如果必须进行编辑请与管理员联系授权!")
           
            e.cancel = True
           
        End If
    Case "是否住宿","宿舍号"
        If User.Roles <> "总务主任" AndAlso User.Name <> "开发者" Then
            e.cancel = True
            MessageBox.Show("角色是总务主任才有权操作此列,如果必须进行编辑请与管理员联系授权!")
           
        End If
End Select

下面的代码只能判断是“义教专干”，怎么判断不是“义教专干”呢？

User.IsRole("义教专干") 

可不可以这么写呢

  If User.IsRole("义教专干")  AndAlso User.Name = "开发者" Then
            MessageBox.Show("此列只有义教专干可以操作,如果必须进行编辑请与管理员联系授权!")
            e.cancel = fales

。。。

改成下面的形式为什么还是不行呢

点了"学生姓名","学籍号","班级"这些列，提示窗口就关不了了。

Select Case e.Col.name
    Case "学生姓名","学籍号","班级"
       If User.IsRole("义教专干")=false  AndAlso  User.Name <> "开发者" Then
            MessageBox.Show("此列只有义教专干可以操作,如果必须进行编辑请与管理员联系授权!")
           
            e.cancel = True
            
  End Select