- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 权限问题？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=128598)
-- 发布时间：2018/12/11 14:57:00
-- 权限问题？
For Each pg As WinForm.TopicPage In tbp.Pages
For Each lnk As WinForm.TopicLink In pg.Links
lnk.Text = lnk.Text.Trim("←")
Next
Next
e.Link.Text = e.Link.Text & "←"
MarkCell = False
For Each frm As Winform.Form In Forms
If frm.Opened AndAlso frm.FormStyle = FormStyleEnum.独立 Then
frm.Close()
End If
Next
Tables("项目计划表").CloseRecordGrid()
Select Case e.Link.Name
Case "项目计划表"
Forms("项目计划表").Open()
MainTable=Tables("项目计划表")
End Select
MainTable.Focus()
baseMainform.ResumeLayout
以以上代码中，如果操作员是“经理”，可以打开项目计划表，否则不能打开，怎么改？
-- 发布时间：2018/12/11 15:15:00
--
谢谢，在窗口直接设计好了
-- 发布时间：2018/12/11 15:25:00
--
Select Case e.Link.Name
Case "项目计划表"
If User.Name = "经理" Then
Forms("项目计划表").Open()
MainTable=Tables("项目计划表")
Else
msgbox("没有权限")
End If
End Select
-- 发布时间：2018/12/11 15:43:00
--
谢谢
-- 发布时间：2018/12/11 15:43:00
--
咱都是没有权限
-- 发布时间：2018/12/11 15:47:00
--
以下是引用gslxgl在2018/12/11 15:43:00的发言：
咱都是没有权限
咱都是没有权限
msgbox(User.Name)
msgbox(user.group)
msgbox(user.roles)
看看你哪个是经理的值
-- 发布时间：2018/12/11 15:50:00
--
开发者
-- 发布时间：2018/12/11 15:52:00
--
弹出各个值，看看你哪个是经理的值
msgbox(User.Name)
msgbox(user.group)
msgbox(user.roles)
-- 发布时间：2018/12/11 15:54:00
--
-- 发布时间：2018/12/11 15:55:00
--
此主题相关图片如下：~t}nhyp$o7fcped4p5g77n.png