主题：关于动态增加表的问题

可以参考：

 

OuterTableBuilder

QueryBuilder

你的表名不是“s1”，而是变量s1中存储的值，所以：

 

q.SelectString = "Select * From [s1] "

 

错了，应该：

q.SelectString = "Select * From [" & s1 & "] "

 

 

在AfterOpenProject设置代码，用OuterTableBuilder加载

你动态增加一个外部表后，就在某个内部表中写入动态增加的表名，以及其数据源名称，在AfterOpenProject事件中逐行读取此内部表的数据，逐个增加外部表。

还有一个办法：
 
Connection的方法有：
 
GetTableNames：返回一个字符串集合，包括此数据源所有的表名。
 
示例：
 
列出外部数据源nwnd中的所有表名：
Dim lst As List(Of String)
lst = Connections("nwnd").GetTableNames
For Each nm As String In lst
    Output.Show(nm)
Next

上面的方法，获得了指定数据源的所有表名，而OuterTableBuilder需要的就是数据源和表名。