[原创] 代码设置 ComboBox下拉框 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [原创] 代码设置 ComboBox下拉框

共有2989人关注过本帖树形打印复制链接主题：[原创] 代码设置 ComboBox下拉框

瑞峰

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：208 积分：2128 威望：0 精华：0 注册：2018/10/8 13:32:00

[原创] 代码设置 ComboBox下拉框 发帖心情

Post By：2023/9/10 16:10:00 [显示全部帖子]

如何设置 cmb.DataSource = "dt.name" 这段。

dt.=name 是空白，直接使用dt 又不行，必须要一个string

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.C

cmd.Com mandText = "SELE CT UserID,UserName From {st_user}"

dt = cmd.ExecuteReader

dt.load

'msgbox(dt.name)

Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox1")

cmb.DisplayMember = "UserName" '设置显示列

cmb.ValueMember = "Userid" '设置取值列

cmb.DataSource = "dt.name" '表项目来自于客户表

瑞峰

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：208 积分：2128 威望：0 精华：0 注册：2018/10/8 13:32:00

Post By：2023/9/11 11:48:00 [显示全部帖子]

谢谢，加为外部表就可以使用了。

但输入UserName，Userid的任何记录，都不能自动填充，必须自己完全输入

并且DataSort也没有效果

Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox1")

cmb.DisplayMember = "UserName" '设置显示列

cmb.ValueMember = "Userid" '设置取值列

cmb.DataSort = "UserName"

cmb.DataSource = "st_user_profile" '表项目来自于客户表

cmb.AutoComplete = True

[此贴子已经被作者于2023/9/11 11:48:37编辑过]

瑞峰

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：208 积分：2128 威望：0 精华：0 注册：2018/10/8 13:32:00

Post By：2023/9/11 12:55:00 [显示全部帖子]

Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox1")

cmb.AutoComplete = True

cmb.DataSort = "UserName"

cmb.DisplayMember = "UserName" '设置显示列

cmb.ValueMember = "Userid" '设置取值列

cmb.DataSource = "st_user_profile" '表项目来自于客户表

DataSort也没有效果，我换成Userid 也没有用

下一主题 >> << 上一主题

主题：[原创] 代码设置 ComboBox下拉框