1、改成Case "表名"
If e.Row("数据源") > "" Then
Dim sql As String
If e.Row("数据源") = "内部数据源" Then
Dim lst As new List(Of String)
For Each dt As DataTable In DataTables
If dt.SourceType = 1 And dt.Type = 1
lst.Add(dt.Name)
End If
Next
sql = String.Join("|",lst.ToArray)
Else
Dim lst As List(Of String)
lst = Connections(e.Row("数据源")).GetTableNames
For Each nm As String In lst
sql = sql & "|" & nm
Next
End If
Tables("授权").Cols("表名").ComboList = sql
End If
2、如果表没有加载就会出现无此table的错误
3、参考这种用法
加好友 
发短信
Post By：2017/4/12 8:53:00 [显示全部帖子]
