以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教多列下拉列表并赋值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120689)

--  作者:wakai
--  发布时间:2018/6/21 22:48:00
--  请教多列下拉列表并赋值

图片点击可在新窗口打开查看此主题相关图片如下:图.png
图片点击可在新窗口打开查看
实现下拉时显示两列内容,选中后分别赋值两列标准号和标准名称控件


此功能可以用DropDownBox实现,只是在多窗体中都要用到,要建好多DropDownBox窗体不是办法
考虑用代码方便点,请教老师要怎么写
tips:系统全部用SQL来代码,系统登陆不加载任何表,在控件属性那选择数据表不合适
现在ListItemFormat写代码
e.Value = e.ListItem("标准号") & "|" & e.ListItem("标准名称")

AfterLoad写代码

e.Form.Controls("标准号").Combolist=DataTables("检验标准").SQLGetComboListString("标准号")


[此贴子已经被作者于2018/6/21 22:53:08编辑过]

--  作者:有点甜
--  发布时间:2018/6/22 0:11:00
--  

SelectedIndexChanged事件,写代码

 

Dim dr as DataRow = e.sender.SelectedItem

if dr isnot nothing then

    e.form.controls("TextBox1").Text = dr("第一列") 

    e.form.controls("TextBox2").Text = dr("第二列")

end if

 

http://www.foxtable.com/webhelp/scr/0932.htm