这段代码写到afterOpenProject事件
Dim lst As List(Of String)lst = Connections("db").GetTableNamesFor Each nm As String In lst Dim q As new OuterTableBuilder q.TableName = nm q.TableCaption = nm q.C q.SelectString = "Select * Fr om {" + nm + "} " q.BuildNext