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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于combobox的数据筛选问题

共有6361人关注过本帖树形打印复制链接主题：关于combobox的数据筛选问题

yqwllm

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

加好友

发短信

等级：婴狐帖子：22 积分：297 威望：0 精华：0 注册：2013/7/31 16:48:00

关于combobox的数据筛选问题 发帖心情

Post By：2014/9/2 15:11:00 [只看该作者]

有两个表，一个是

A表

单位号单位名称

123456 单位123456

234567 单位234567

345678 单位345678

456789 单位456789

B表

员工号姓名所属单位号

0011 张三 123456

0022 王五 123456

0033 赵四 234567

0044 刘六 345678

0055 冯七 456789

0066 马八 456789

0077 牛九 234567

在第一个combobox1中用名称选单位‘单位123456’ 在第二个中显示所属单位的员工，如何实现？？？急

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/9/2 15:37:00 [只看该作者]

先利用FIND找到单位号,再利用单位号用GetComboListString 获取对应的员工

参考http://www.foxtable.com/help/topics/1523.htm

yqwllm

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

加好友

发短信

等级：婴狐帖子：22 积分：297 威望：0 精华：0 注册：2013/7/31 16:48:00

Post By：2014/9/3 17:20:00 [只看该作者]

Dim cmb As WinForm.ComboBox = Forms("登录").Controls("combobox1")
Dim str As String = e.Form.Controls("ComboBox1").Value
'cmb.ComboList = DataTables("表A").GetComboListString("规格", "型号 = '" & str & "'")

Dim dr As DataRow
dr = DataTables("单位主表").Find("unitname = '" & str & "'")
MessageBox.Show(dr)

Dim text2 As WinForm.TextBox = e.Form.Controls("textbox2")
text2 = Tables("单位主表").Current("unitid")

yqwllm

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

加好友

发短信

等级：婴狐帖子：22 积分：297 威望：0 精华：0 注册：2013/7/31 16:48:00

Post By：2014/9/3 17:39:00 [只看该作者]

还是不行

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/9/3 17:51:00 [只看该作者]

参考代码，如果还不会做，请把例子上传

Dim str As String = e.Form.Controls("ComboBox1").Value

Dim dr As DataRow
dr = DataTables("单位主表").Find("unitname = '" & str & "'")

If dr IsNot Nothing Then
Dim cmb2 As WinForm.ComboBox = e.Form.Controls("combobox2")
cmb2.ComboList = DataTables("员工表").GetComboListString("姓名", "所属单位号 = '" & dr("单位号") & "'")
End If