主题：[求助]导航为什么没反映？

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

尝试这样写

msgbox(e.Link.Name)

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