主题：MainTableChanged 事件中关闭窗口代码无效原因？

下面这段代码在MainTableChanged项目事件中,应该是可以执行的,但是如果表一旦多了,有A、B、C、…表时，用下面这段代码无效： 

if MainTable.name <> "表A" Then

    Forms("表A").Close() '关闭表A对应的独立窗口

elseif MainTable.name <> "表B" Then

    Forms("表B").Close() '关闭表B对应的独立窗口

then

没有办法，只好在菜单中切换主表时加下面这段代码：

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

请狐爸看看，MainTableChanged中的代码为何不能执行，是不是项目中其它地方的代码影响这段代码的执行。

if MainTable.name <> "表A" Then

    Forms("表A").Close() '关闭表A对应的独立窗口

elseif MainTable.name <> "表B" Then

    Forms("表B").Close() '关闭表B对应的独立窗口

then

 

 

 这个是你直接贴上来还是再写的.

 

最后结束语怎么是then呢,不是end if 吗?

一楼应该逻辑问题。

 

不如直接这样？

 

For Each frm As WinForm.Form In Forms
    If frm.TableName <> MainTable.name
        frm.Close
    End If
Next

从一楼的注释来看，似乎这样更合理。

 

For Each Frm As WinForm.Form In Forms '返回所有窗口
    If Frm.TableName <> MainTable.Name '如果窗口所在表不等于本表
        If Frm.FormStyle = 2 Then '如果窗口类型等于独立
            Frm.Close
        End If
    End If
Next

then 应该为end if ,这是我写的时候笔误，在狐表中是正确的写法，否则保存不了啊。

在帮助中有一 段帮助：

自动关闭与隐藏

本课的内容仅针对独立型窗口，因为其它类型的窗口并不存在自动隐藏的问题。
我们已经知道，独立窗口是可以共享的，独立窗口一旦打开，切换到其他主表后，窗口仍然是可见的。
有的时候我们并不希望这样，例如有一个设计好的窗口，名为“订单筛选”，我们希望进入订单表的时候，该窗口能够自动打开，而离开订单表的时候，能够自动关闭。
实现这个要求的代码很简单，只需将项目的MainTableChanged事件设为：

If MainTable.Name = "订单" Then
    Forms("订单筛选").Show()
Else
    Forms("订单筛选").Close()
End If

 

在实际中，一个主表有多个窗口，在不同的主表之间进行切换时，都希望关闭前一主表的所有窗口，主表一多就用上了elseif 来判断，所以用<>号比=号方便，只要不是表A就关闭表A中所有窗口，从理论上讲用<>号没有错，但为什么就不执行呢？

CZY代码有理，但是如果表A有多个窗口，那么这些窗口名称不可能都等于表名，因此这段代码也不好用。谢谢CZY。

 

可能你理解有误，我的代码中没有判断窗口名称，我只是判断不是指定表中的所有窗口，和不是指定表中所有的独立窗口，如果符合这两个条件就关闭窗口，否则不操作。

呵呵，我楼上可能理解错楼主的意思了。

哦，是我没看清楚代码的意思，C版代码有效，不好意思了。另FormStyle在帮助中找不到，那可能是窗口类型的意思，看来版主有私货啊。谢谢

 

一样一样的，版主没有一点私货，这是我自己摸索出来的。