Select Case e.Link.Name Case "表A" MainTable = Tables("表A") Case "表B" MainTable = Tables("表B") Case "表A.表B" MainTable = Tables("表A.表B") End Select 'MessageBox.Show(e.Page.Name & "|" & e.Link.Name)
Case "表A.表B" MainTable = Tables("表A.表B") 这样写个代码,能不能在任务栏中打开主表A中的子表,显示:上面是表A,下面是表B?