标题：窗体

1楼

forwork 发表于：2009/7/10 9:40:00

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

2楼

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

3楼

狐狸爸爸 发表于：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编辑过]

4楼

forwork 发表于：2009/7/10 9:49:00

谢谢！！....

共4 条记录, 每页显示 10 条, 页签: [1]