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
以以上代码中，如果操作员是“经理”，可以打开项目计划表，否则不能打开，怎么改？
加好友 
发短信
Post By：2018/12/11 14:57:00 [只看该作者]
