| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 如何自动从上级列表选择数据后自动下级列表可以筛选默认值数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=105845) |
|
| -- 作者：zhuya820 -- 发布时间：2017/8/27 20:41:00 -- 如何自动从上级列表选择数据后自动下级列表可以筛选默认值数据 TextChanged控件的Text属性发生变化后执行 以下是第2级列表的代码： Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox产品颜色") cmb.ComboList = DataTables("列表目录").GetComboListString("列表名称_2级","列表名称_1级 = \'" & e.form.Controls("ComboBox颜色体系").text & "\'") 此时得到值例如为： 1行：A1 2行：A2 3行：B1 ？？？？？？？？？？？？？？如何取值 以上如何自动从列表中提取第1行值写入默认值第1行或第3行值 e.form.Controls("ComboBox产品颜色") .text = “A1” 或 e.form.Controls("ComboBox产品颜色") .text = “B1” [此贴子已经被作者于2017/8/27 20:43:14编辑过]
|
|
| -- 作者：有点甜 -- 发布时间：2017/8/27 20:49:00 -- Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox产品颜色")
cmb.ComboList = DataTables("列表目录").GetComboListString("列表名称_2级","列表名称_1级 = \'" & e.form.Controls("ComboBox颜色体系").text & "\'")
If cmb.ComboList > "" Then
cmb.SelectedIndex = 0
End If
|
|
| -- 作者：zhuya820 -- 发布时间：2017/9/3 11:52:00 --
[此贴子已经被作者于2017/9/3 13:01:48编辑过]
|
|
| -- 作者：有点甜 -- 发布时间：2017/9/3 12:24:00 -- e.form.Controls("ComboBox1").Select Sendkeys.Send("{F4}") |