主题：请教：如何提取项目中所有外部数据源做列表项目？

请教：如何提取项目中所有外部数据源做列表项目？

 

是外部数据表？还是所有外部数据源链接中的所有表？还是指定外部数据源中的所有表？

外部数据源名称，比如，一个项目中有三个外部数据源，我想提取这三个外部数据源名称做列表项目，供用户选择

这个应该很简单的。

Dim datas As String
For Each data As String in GetTableNamesFromConnection("A")
    datas = datas & "|" & data
Next
For Each data1 As String in GetTableNamesFromConnection("B")
    datas = datas & "|" & data1
Next
Output.show(datas)

谢谢，我要的是数据源名称，而不是要各数据源中所有表的名称，呵呵，比如有三个数据源，ABC，那么列表项目就应该是：
A
B
C

数据源名称反正都是一个个命名的，就这样解决吧：：
用任何表的一列专门存放数据源名称，需要是调用～ 

这个要求可以否决：
1、因为固定的外部数据源只有设计者提前预定，可以将固定增加的外部数据源写入项目信息；
     比如，每增加一个外部数据源以后，命令窗口执行：
          SaveConfigValue("数据源列表",GetConfigValue("数据源列表","") & "|" & "新数据源名称")
2、当动态增减外部数据源的同时，向这个项目信息写入或删除项目信息
    2.1、动态删除外部数据源后立即执行：
        (GetConfigValue("数据源列表","") & "|*").Replace("数据源3" & "|","").Replace("*","")
           （这里假定删除“数据源3”）
    2.2、动态增加外部数据源的时候执行：
         if GetConfigValue("数据源列表","").Contains("新数据源名称") = true
             MessageBox.Show("该数据源名称已经存在，请更名后再添加！", "警告", MessageBoxButtons.ok, MessageBoxIcon.Information)
         else
             SaveConfigValue("数据源列表",GetConfigValue("数据源列表","") & "|" & "新数据源名称“)
              '您的动态添加外部数据源的代码
               .............
         end if

      通过上述处理，任意时候调用数据源列表：GetConfigValue("数据源列表","") 
      （没经过测试，理论上可行）
       

二位说的有理，我也是想着要做一个表来存放

动态取所有数据源应该也没有问题吧。

如何做？