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

一楼应该逻辑问题。

不如直接这样？

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

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

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