楼主要的应该是这个:
For Each frm As WinForm.Form In Forms If frm.Opened AndAlso frm.TableName <> MainTable.Name Then frm.Close() End IfNext