Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何在组合框中列示出数据源


  共有2497人关注过本帖树形打印复制链接

主题：如何在组合框中列示出数据源
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		如何在组合框中列示出数据源  发帖心情 Post By：2018/6/30 23:39:00 [显示全部帖子]

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

 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：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组合框中以列表形式列出数据源以供选择
 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/7/2 10:44:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：数据源.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/7/2 11:34:00 [显示全部帖子]

我看了这个教材，但写出来的代码无法达到想要的效果

 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/7/2 11:58:00 [显示全部帖子]

Dim s1 = Forms("用户数据表").Controls("ComboBox1").text
Dim cnnt As Connection = Connections(s1)
Dim lst As List(of String)
lst = Connections(cnnt).GetTableNames
For Each nm As String In lst
    Dim cbb2 As WinForm.ComboBox = Forms("用户数据表").Controls("ComboBox2")
    cbb2.Items.Clear
    cbb2.idtems.add(nm)
Next  
上述代码提示编码错误
 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/7/2 13:00:00 [显示全部帖子]

combobox2的列表中可以同时列出表名和表标题不

 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/7/2 13:12:00 [显示全部帖子]

可以实现在combobox2的下拉列表中列出表名和表标题不

 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/7/2 13:57:00 [显示全部帖子]

问题1.
可以实现在combobox2的下拉列表中列出表名和表标题不

    问题2.确认按钮事件代码

Dim st1 = e.Form.Controls("ComboBox1").text
Dim st2 = e.Form.Controls("ComboBox2").text
If Connections.Contains(st1) Then
    Dim cnnt As Connection = Connections(st1)
    Dim lst As List(of String)
    lst = Connections(cnnt).GetTableNames
    If lst.Contains(st2) Then
        DataTables(st2).Load()
    End If
End If
代码有什么问题，什么没法用
 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/7/2 14:42:00 [显示全部帖子]

If dt.C Then 中dt.c是什么意思 ，怎么使用

 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06055 秒, 5 次数据查询