以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于两个COMBOX的关联  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108734)
--  作者：zhimin
--  发布时间：2017/10/28 2:12:00
--  关于两个COMBOX的关联
老师好！
在以下案例中，如何实现在COMBOBOX1中选择“型号”之后，COMBOBOX2的内容马上根据此“型号”的变化而变化。现在的情况是，在combobox1选择后，combobox2的内容并没有马上改变，而是需要通过下拉菜单来选择才会改变。
谢谢！

1、在窗口的AfterLoad事件中加入代码：

Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox1")
cmb.ComboList = DataTables("表A").GetComboListString("型号")

2、在ComboBox2的Enter事件中加入代码：

Dim cmb As WinForm.ComboBox = e.Sender
Dim str As string = e.Form.Controls("ComboBox1").Value
cmb.ComboList = DataTables("表A").GetComboListString("规格", "型号 = \'" & str & "\'")
--  作者：有点蓝
--  发布时间：2017/10/28 8:58:00
--  
ComboList 本来设置的就是下拉项目。要改变输入框的内容这样

cmb.Text = DataTables("表A").GetComboListString("规格", "型号 = \'" & str & "\'")