以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  根据用户角色去加载表怎么写  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=188603)
--  作者：fx719
--  发布时间：2023/10/4 13:59:00
--  根据用户角色去加载表怎么写
比如开发者加载所有表,
角色1,加载ab表,
角色2,加载bc表,
以下内容为程序代码:

1 Select Case e.User.Roles \'只有开发者才加载表C
2 Case e.User.IsRole("业务")
3 MessageBox.Show(1)
4 If e.DataTableName = "Z_授权表" Then
5 MessageBox.Show(2)
6 e.Cancel = True
7
8 End if
9 End Select
--  作者：有点蓝
--  发布时间：2023/10/5 22:59:00
--  
假设这些都是外部表：
select case e.DataTableName
    case "a"
        if e.User.IsRole("角色2") then
            e.cancel=true
        endif
    case "c"
        if e.User.IsRole("角色1") then
            e.cancel=true
        endif
end select