Foxtable(狐表)用户栏目专家坐堂 → 在窗口里有两个combobox控件,如何让其中一个combobox的项目随另一个变化?


  共有3087人关注过本帖树形打印复制链接

主题:在窗口里有两个combobox控件,如何让其中一个combobox的项目随另一个变化?

帅哥哟,离线,有人找我吗?
gdjoss
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:73 积分:607 威望:0 精华:0 注册:2015/7/5 22:12:00
在窗口里有两个combobox控件,如何让其中一个combobox的项目随另一个变化?  发帖心情 Post By:2015/7/30 8:39:00 [只看该作者]

如题,有组合框A,组合框B,另有数据表a列、b列,a列的一项对应着b列的多项。组合框A绑定a列,如何让组合框B根据A当前的值将绑定内容设置为在数据表中对应的b列?

 回到顶部
帅哥哟,离线,有人找我吗?
yan2006l
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:431 积分:3214 威望:0 精华:2 注册:2011/9/10 21:35:00
  发帖心情 Post By:2015/7/30 9:03:00 [只看该作者]

在组合框B的PrepareEdit事件中输入如下代码:

If e.Col.Name = "县市" Then '如果正在编辑的是县市列
    '从行政区域表提取该省市的县市作为列表项目
     e.Col.Combolist = DataTables("行政区域").GetComboListString("县市", "[省市] = '" & e.Row("省市") & "'")
End
If


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/30 9:06:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
gdjoss
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:73 积分:607 威望:0 精华:0 注册:2015/7/5 22:12:00
回复:(yan2006l)在组合框B的PrepareEdit事件中输入...  发帖心情 Post By:2015/7/30 9:06:00 [只看该作者]

窗口控件combobox没有这个属性呀

 回到顶部
帅哥哟,离线,有人找我吗?
yan2006l
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:431 积分:3214 威望:0 精华:2 注册:2011/9/10 21:35:00
  发帖心情 Post By:2015/7/30 9:08:00 [只看该作者]

Enter事件

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110597 积分:562881 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2015/7/30 9:19:00 [只看该作者]

Dim cmb As WinForm.ComboBox
cmb = Forms("窗口1").Controls("ComboBox1")
cmb.ComboList = DataTables("表a").GetComboListString("a列") 绑定组合框A
然后再组合框A的SelectedIndexChanged事件写下面代码
Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim cb As WinForm.ComboBox
cb = Forms("窗口1").Controls("ComboBox2")
cb.ComboList = DataTables("表a").GetComboListString("b列","[a列] ='" & cm.Text & "'")

 回到顶部