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