主题：如何在组合框中列示出数据源

参考

For Each c As Connection In Connections
    msgbox(c.name)
Next

参考

http://www.foxtable.com/webhelp/scr/1943.htm

combobox2的enter事件

Dim s1 = Forms("用户数据表").Controls("ComboBox1").text
If Connections.Contains(s1) Then
    Dim cnnt As Connection = Connections(s1)
   
    Dim cbb2 As WinForm.ComboBox = Forms("用户数据表").Controls("ComboBox2")
    cbb2.Items.Clear
    For Each nm As String In cnnt.GetTableNames
        cbb2.Items.add(nm)
    Next
End If

1、修改代码，如

For Each dt As DataTable In DataTables
    If dt.C Then
        msgbox(dt.name)
    End If
Next

2、参考1的代码处理。把foxtable的表名显示到combobox2中

无法添加数据表的，foxtable不允许你这样做。

如果添加临时表，参考 http://www.foxtable.com/webhelp/scr/1279.htm