主题：[求助]有没有简单的代码，实现关闭当前表之外的所有窗口？

如题，很多时候设置了不同的窗口，但是当前表和当前窗口切换时，其他表格的窗体没有自动关闭，怎么可以实现这个功能呢？

望指点

有没有办法？

设置一个菜单按钮：

For Each frm As WinForm.Form In Forms
    If Forms.ActiveForm IsNot Nothing Then
        If frm.Name <> Forms.ActiveForm.Name Then
            If frm.Opened Then
                frm.Close()
            End If
        End If
    End If
Next

楼主要的应该是这个：

For Each frm As WinForm.Form In Forms
    If frm.Opened AndAlso frm.TableName <> MainTable.Name Then
        frm.Close()
    End If
Next

老大就是老大，谢谢

前几天发了帖子，一直没空上来看，今天看了，果真有惊喜，谢谢啦