以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教一个问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=34378)
--  作者：sxqq123
--  发布时间：2013/6/6 16:02:00
--  请教一个问题

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

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
--  作者：Bin
--  发布时间：2013/6/6 16:03:00
--  
不是删除代码就可以了的,你已经执行了操作.删除代码并不会还原操作.你重新打开项目.或者使用代码重新设置才有用.
--  作者：sxqq123
--  发布时间：2013/6/7 8:16:00
--  

 

 

在AfterOpenProject中增加如下代码： 

If User.Type = UserTypeEnum. Developer Then

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

End If

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

 

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


 

[此贴子已经被作者于2013-6-7 8:16:32编辑过]
--  作者：Bin
--  发布时间：2013/6/7 8:41:00
--  
这不应该啊.你把例子发上来看看.