再请问：用下列代码想将ORCL数据源中所有的表的列取出来，填到一个表中。一是感觉到有点复杂，有没有简单的方法；
二是运行中途会出现错误。
(下面的代码中，有SEL的地方因系统限制，删除了若干字符）
Dim lst As List(Of String)
lst = Connections("orcl").GetTableNames
For Each nm As String In lst
nm = nm.Replace("""","")
Dim q As new QueryBuilder
q.TableName = "临时表"
q.Sel????= "Sel??? * From { " & nm & "}"
q.C
q.Build
For Each dc As DataCol In DataTables("临时表").DataCols
Dim dr As DataRow = DataTables("ORCLTABLE").AddNew
dr("TABLE") = nm
dr("COLName") = dc.name
Next
Next
[此贴子已经被作者于2017/12/12 13:52:02编辑过]
加好友 
发短信
Post By：2017/12/12 11:17:00 [显示全部帖子]
此主题相关图片如下：1.png