以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自动列表数据源、表名、列名、不重复值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=99058)
--  作者：有点色
--  发布时间：2017/4/12 8:52:00
--  

 选择表，应该用 datatables 的，这个才是加入foxtable的表。

 

Dim name As String = ""
Dim tbs As String = ""
For Each dt As DataTable In DataTables
    Dim cname As String = dt.ConnectionName
    If cname = name Then
        tbs = tbs & dt.name & "|"
    End If
Next
msgbox(tbs.Trim("|"))
--  作者：有点蓝
--  发布时间：2017/4/12 8:53:00
--  
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、参考这种用法