- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何在组合框中列示出数据源 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121192)
-- 发布时间：2018/6/30 23:39:00
-- 如何在组合框中列示出数据源
在窗口中添加”combobox组合框“，进入组合框后如何自动列示出所有数据源？
-- 发布时间：2018/7/1 17:34:00
--
参考
For Each c As Connection In Connections
msgbox(c.name)
Next
-- 发布时间：2018/7/2 9:51:00
--
enter事件代码：
For Each cnnt As Connection In Connections
Dim cmb1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
cmb1.ComboList = cnnt.Name
Next
为什么没法在combobox组合框中以列表形式列出数据源以供选择
-- 发布时间：2018/7/2 10:14:00
--
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
-- 发布时间：2018/7/2 10:44:00
--
此主题相关图片如下：数据源.png
-- 发布时间：2018/7/2 11:06:00
--
参考
http://www.foxtable.com/webhelp/scr/1943.htm
-- 发布时间：2018/7/2 11:34:00
--
我看了这个教材，但写出来的代码无法达到想要的效果
-- 发布时间：2018/7/2 11:35:00
--
贴出所写代码。
-- 发布时间：2018/7/2 11:35:00
--
Dim s1 = Forms("用户数据表").Controls("ComboBox1").text
Dim cnnt As Connection = Connections(s1)
Dim cbb2 As WinForm.ComboBox = Forms("用户数据表").Controls("ComboBox1")
cbb2.Items.Clear
For Each nm As String In cnnt.GetTableNames
cbb2.Items.add(nm)
Next
-- 发布时间：2018/7/2 11:48:00
--
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