以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自定义用户与权限管理  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116860)
--  作者：swagger
--  发布时间：2018/4/1 17:29:00
--  自定义用户与权限管理
初始不加载表

If _Username = "员工1"  Then

Select Case e.DataTableName
    Case "表A", "表B" \'表A和表B无条件加载
    Case Else \'其他所有表默认都不加载
        e.Cancel = True
End Select

End If


但是用员工1账号登录之后，所有表还是被加载。怎么在自定义用户与权限管理设定加载表条件？

[此贴子已经被作者于2018/4/1 17:28:53编辑过]
--  作者：有点甜
--  发布时间：2018/4/1 19:32:00
--  

代码改成

 

Select Case e.DataTableName
    Case "表A", "表B" \'表A和表B无条件加载
    Case Else \'其他所有表默认都不加载
        e.Cancel = True
End Select

 

 

然后，登陆窗口的登陆按钮里面，再写代码加载你需要的表。