您好 我写的代码是下面这样的，但是我点击任务栏里的子任务还是没有反应 中间也弹出了一下窗口，被我叉掉之后再点就没有任何反应了，请问这是为什么呢
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.Page.Name
Case "危化品包装"
Select Case e.Link.Name
Case "包装主体"
Forms("包装主体").Open()
MainTable = Tables("危化品包装")
Case "包装材质"
Forms("包装材质").Open()
MainTable = Tables("危化品包装")
Case "内包装"
Forms("内包装").Open()
MainTable = Tables("危化品包装")
End Select
End Select
加好友 
发短信
Post By：2020/3/21 15:35:00 [显示全部帖子]
此主题相关图片如下：微信图片_20200321153202.png
