主题：窗体

请问一下：关闭所有表中的窗体代码是怎样的啊？

For Each tb As Table In Tables
    For Each frm As WinForm.Form In Forms
        If frm.TableName = tb.name Then
            frm.Close()
        End If
    Next
Next

呵呵，重复了，既然关闭所有窗口，应该：

    For Each frm As WinForm.Form In Forms
            frm.Close()
    Next

如果关闭指定表的窗口：

    For Each frm As WinForm.Form In Forms
         if frm.TableName = "表A"
            frm.Close()
         end if
    Next

谢谢！！....