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

在窗口中添加”combobox组合框“，进入组合框后如何自动列示出所有数据源？

参考

 

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

Dim cmb1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
cmb1.Items.Clear
For Each cnnt As Connection In Connections
    cmb1.items.add(cnnt.Name)
Next

此主题相关图片如下：数据源.png

参考

 

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