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

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

共有6914人关注过本帖树形打印复制链接主题：关于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’ 在第二个中显示所属单位的员工，如何实现？？？急

yqwllm

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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

加好友

发短信

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

Post By：2014/9/3 17:39:00 [显示全部帖子]

还是不行

yqwllm

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

加好友

发短信

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

Post By：2014/9/5 16:58:00 [显示全部帖子]

谢谢，选择后上次选择的值仍存在，怎么样能赋初始化的值？

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

str= ''

不可以啊！

yqwllm

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

加好友

发短信

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

Post By：2014/9/5 22:42:00 [显示全部帖子]

谢谢

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

主题：关于combobox的数据筛选问题