- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 请教多选下拉列表如何设计？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=102886)
-- 发布时间：2017/6/27 12:19:00
-- 请教多选下拉列表如何设计？
您好，老师！
教程中自定义录入界面中，选择都是单选，我想设计多选下拉列表窗口，请问如何设计？
我想按确定按钮后，第一列中出现“苹果1，香蕉2，菠萝3”
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:多选下拉列表.table |
此主题相关图片如下：new image - wc4v5.jpg
[此贴子已经被作者于2017/6/27 12:21:20编辑过]
-- 发布时间：2017/6/27 12:55:00
--
Dim str As String = ""
For Each r As Row In e.Form.controls("table1").Table.GetCheckedRows
str &= r("第一列") & ","
Next
e.Form.DropDownBox.Value = str.Trim(",")
e.Form.DropDownBox.CloseDropdown
-- 发布时间：2017/6/27 13:00:00
--
-- 发布时间：2017/6/27 15:36:00
--
老师，您好！
多选功能已实现，但有一个问题。就是在查找栏中输入查找内容，想追加选项，但会清空原输入内容，除非在下拉列表中一次性选择所有项目。
怎样才能在原内容基础上再追加新的选择项呢？
-- 发布时间：2017/6/27 16:26:00
--
Dim str As String = ""
For Each r As Row In e.Form.controls("table1").Table.GetCheckedRows
str &= r("第一列") & ","
Next
e.Form.DropDownBox.Value = (e.Form.DropDownBox.Value & "," & str).trim(",")
e.Form.DropDownBox.CloseDropdown
-- 发布时间：2017/6/27 21:18:00
--
这正是我想要的，太好了，谢谢老师！