以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]导航为什么没反映？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=85715)
--  作者：tjnhjs
--  发布时间：2016/6/1 17:09:00
--  [求助]导航为什么没反映？

baseMainform.SuspendLayout
Dim tbp As WinForm.TopicBar = e.Form.Controls("TopicBar1")
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 & "←"

  Select Case e.Link.Name
            Case "学生基本信息"
                 Forms("学生管理").Open()
         
End Select
--  作者：大红袍
--  发布时间：2016/6/1 17:13:00
--  

尝试这样写

 

msgbox(e.Link.Name)

Select Case e.Link.Name
            Case "学生基本信息"
                 Forms("学生管理").Open()
                 MainTable = Tables("窗口所在的表")
End Select