任务栏任务第二次点击报错问题

我上传附件

两个问题

1、想要点一个任务时，其他页面自动关掉。如何实现

2、统一任务联系两次点击会报错

我在付款相关中设置了代码，请狐爸或者高手测试

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:项目管理.table

1、第一个问题很麻烦，没有必要。

2、第二个问题，在设计窗口的时候，将“费用计算”这些窗口的“自动隐藏”属性设置为False，所有窗口的“自动隐藏”属性都设置为False.

除了导航之外的窗口全部关掉，这个代码应该怎么写啊。

没有自动隐藏，打开的窗口太多了

Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
For Each page As WinForm.TopicPage In tpb.Pages
    If page.Name <> e.Page.Name Then
        page.Collapsed = True
    End If
Next