主题：窗口的打开与关闭（已解决）

在MainTableChanged中切换不同表时打开本表独立窗口，自动关闭其他表已经打开的独立窗口 应该怎么做？谢谢 

如果这样，最好独立窗口全部以约定的字符开头，然后

 

For each frm As winForm.Form In Forms
   If frm.Name.StartsWith("预定字符") AndAlso frm.Opened AndAlso frm.TableName <> MainTable.Name Then
        frm.Close
   Next
Next

 

这个想法很实用，好象没有现成的办法，似乎只能靠判断表名了。建议在窗口设计中添加一个属性：是否随主表自动打开

这个应该有  独立窗口应该可以和主表一起打开、关闭

建议窗口名称与主表名称关联（比如相同），这样您就不需要判断，离开主表关闭，

比如：Forms("MainTable.Name").close     或Forms("MainTable.Name").open

按程版的思路 在MainTableChanging中加入关闭窗口代码

Select Case CurrentTable.DataTable.Name
    Case "资料"
        Forms("资料").Close()
    Case "部门"
        Forms("部门").Close()
'    Case 值3
'        代码3
'    Case Else
'        代码X
End Select