主题：切换表时自动关闭当前表的窗口

我的表中的窗口都是独立窗口，通过左侧导航栏打开表的时候同时打开窗口，但是在切换其他表的时候，必须手动关闭原来表的窗口，应该怎么样才能实现只要离开当前表，该表的窗口就自动关闭？

forms("你要关的窗口").close

这个方法跟手动关闭差不多，可能您误会了我的意思，

假如我有5个表，Ta、Tb、Tc、Td、Te，

5个窗口W1、W2、W3、W4、W5，

导航栏对于Ba、Bb、Bc、Bd、Be共5个按钮，

现在点按钮Bb，打开的是表Tb，窗口W2，我现在要点Ba，可以在用代码 forms("W2").close ，但是如果刚才打开的是TC和W3,再加一句forms("W3").close，以此类推，如果我有几十个表和几十个窗口，难道必须要每个按钮上都把所有的窗口关闭命令都写一遍吗？

 

关闭所有已经打开的窗口：

 

For Each frm As WinForm.Form in Forms

     If frm.Opened Then

         frm.Close

     End if

Next

 

 

 

For Each frm As WinForm.Form in Forms
     if frm.Name <> "导航窗口名" Then
          If frm.Opened Then
              frm.Close
          End if
     End if
Next

哈，我真笨，怎么没想到只要加个判断条件就可以了！