执行下面代码弹出什么
msgbox(e.Link.Text)
Select Case e.Link.Text Case "案卷装盒"
msgbox(123) Forms("按卷立卷卷盒目录").Show