关于Combobox的用法 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于Combobox的用法

共有2165人关注过本帖树形打印复制链接主题：关于Combobox的用法

scofields

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

加好友

发短信

等级：二尾狐帖子：564 积分：4561 威望：0 精华：0 注册：2016/4/17 20:05:00

关于Combobox的用法 发帖心情

Post By：2016/11/1 0:04:00 [只看该作者]

老师，这段代码如何修改？

Dim cmb1 As WinForm.ComboBox

Dim cmb2 As WinForm.ComboBox

cmb1 = e.form.Controls("ComboBox1")

cmb2 = e.form.Controls("ComboBox2")

cmb1.ComboList = DataTables("T_客户").SQLGetComboListString( "客户ID")

cmb2.Combolist = DataTables("T_B客户").SQLGetComboListString("二类客户名","[客户ID] = ‘’" & cmb1.text & "" )

有点青

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

加好友

发短信

等级：二尾狐帖子：573 积分：2961 威望：0 精华：0 注册：2016/10/27 14:33:00

Post By：2016/11/1 8:42:00 [只看该作者]

Dim cmb1 As WinForm.ComboBox
Dim cmb2 As WinForm.ComboBox
cmb1 = e.form.Controls("ComboBox1")
cmb2 = e.form.Controls("ComboBox2")
cmb1.ComboList = DataTables("T_客户").SQLGetComboListString("客户ID")
cmb2.Combolist = DataTables("T_B客户").SQLGetComboListString("二类客户名","[客户ID] = '" & cmb1.text & "'")

有点蓝

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

加好友

发短信

等级：超级版主帖子：110558 积分：562680 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/11/1 9:21:00 [只看该作者]

ComboBox1这个时候未必有值的，ComboBox2的操作就有点多余了

ComboBox2的处理应该放到ComboBox1的textchanged或者selectedindexchanged中

scofields

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

加好友

发短信

等级：二尾狐帖子：564 积分：4561 威望：0 精华：0 注册：2016/4/17 20:05:00

Post By：2016/11/1 15:28:00 [只看该作者]

看了帮助文件，要放到ComboBox控件的Enter事件中，问题已解决了！

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

主题：关于Combobox的用法