主题：自动列表数据源、表名、列名、不重复值

 选择表，应该用 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("|"))