主题：[求助]批量加载数据表

Dim tbs() As String = {"表A", "表B", "表C"}
For Each tb As String In tbs
    Dim q As new OuterTableBuilder
    q.TableName = tb & "1"
    q.TableCaption = tb
    q.SelectString = "Select * F rom {" & tb & "}"
    q.Build
Next

 你可以去掉，我测使时候用的，表名重复了。