主题：很奇怪的一个现象

你的Tables集合改变了。因为你窗口有窗口表，打开后就新增了表。

你可以改成这样

Dim ts as new List(Of table)
For Each t As Table In Tables
    ts.add(t)
Next
For Each t As Table In ts
    forms("窗口1").show
Next

这句

For Each aTable As Table In Tables

换成2楼的方法。