请教师帮忙看一下,为什么不行呢。显示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