1、提示什么错误?
2、试试改成
Select Case e.Link.Text Case "分布统计" Forms("导航").Open() Forms("分布统计").showEnd Select