以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗体  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=3502)
--  作者：forwork
--  发布时间：2009/7/10 9:40:00
--  窗体
请问一下：关闭所有表中的窗体代码是怎样的啊？
--  作者：8月32号
--  发布时间：2009/7/10 9:45:00
--  
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
--  作者：狐狸爸爸
--  发布时间：2009/7/10 9:47:00
--  
以下是引用8月32号在2009-7-10 9:45:00的发言：
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

[此贴子已经被作者于2009-7-10 9:49:32编辑过]
--  作者：forwork
--  发布时间：2009/7/10 9:49:00
--  

谢谢！！....