主题：请教一个问题

项目采用帮助中的自定义用户管理系统中,设计了一个用户可以看到某个表,可以编辑某个表,以开发者身份进入后无法操作,删除相关代码后还是无法打开对应的表进行操作,代码如下:

Select Case e.Node.Name
    Case "用户管理"
        If _UserName ="用户名" Then
            MainTable=Tables("用户管理")
        Else
            MessageBox.show("你没有权限")
        End If

End select

 

If _UserName = "用户名" Then
    Tables("用户管理"). AllowEdit = True
  Else

 

 

在AfterOpenProject中增加如下代码： 

If User.Type = UserTypeEnum. Developer Then

For Each t As Table In Tables
    t.Visible = True
    t.AllowEdit = true
  Next

End If

同时对设置的用户可以看到某个表,可以编辑某个表的功能代码进行了注释

 

结果以开发者身份重新打开项目进入后还是不能打开和编辑，请指教如何处理