[求助]关于列表框的问题(已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于列表框的问题(已解决）

共有21909人关注过本帖树形打印复制链接主题：[求助]关于列表框的问题(已解决）

sohper

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

加好友

发短信

等级：幼狐帖子：72 积分：614 威望：0 精华：0 注册：2009/5/23 10:22:00

[求助]关于列表框的问题(已解决） 发帖心情

Post By：2009/6/17 9:02:00 [只看该作者]

在客户表有两个列表框，cmb1 cmb2 分别绑定到员工表的部门列和员工列.如何做到，cmb2的列表项目，只显示cmd1所属部门的员工呢？

[此贴子已经被作者于2009-6-17 14:13:55编辑过]

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/6/17 9:30:00 [只看该作者]

在cmb2的Enter事件中加入代码：

Dim cmb1 As WinForm.ComboBox = Forms("窗口1").Controls("cmb1")
Dim cmb2 As WinForm.ComboBox = Forms("窗口1").Controls("cmb2")
cmb2.ComboList = DataTables("员工").GetComboListString("姓名","部门 = '" & cmb1.value & "'" )

sohper

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

加好友

发短信

等级：幼狐帖子：72 积分：614 威望：0 精华：0 注册：2009/5/23 10:22:00

Post By：2009/6/17 10:35:00 [只看该作者]

不行哦，我的代码是，您帮我看看
Dim cmb1 As WinForm.ComboBox = e.Form.Controls("cmb1")
Dim cmb2 As WinForm.ComboBox = e.Form.Controls("cmb2")
cmb2.ComboList = DataTables("业务员表").GetComboListString("业务员","隶属部门 = '" & cmb1.value & "'" )