- 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=135601)
-- 发布时间：2019/5/29 22:42:00
-- [求助] 窗口中下拉列表框如何实现多选？
任务登记窗口中参加检测人员是一下拉列表框，使用了名为“检测人员列表”的下拉窗口，如何实现该窗口中的复选结果写到下拉列表框中。
-- 发布时间：2019/5/29 22:52:00
--
1、显示复选框
http://www.foxtable.com/webhelp/scr/1635.htm
2、处理选择的结果
http://www.foxtable.com/webhelp/scr/1776.htm
-- 发布时间：2019/5/29 23:10:00
-- 谢谢甜版，但是复选后参加人员框中仍是空白，是我的代码有问题么？
Dim s As String
s=""
For Each r As Row In Tables("人员").GetCheckedRows
s= s & r.DataRow("姓名") & ";"
Next
Forms("任务登记").Controls("DropBox3").Value=s
Forms("检测人员列表").DropDownBox.CloseDropdown()
-- 发布时间：2019/5/29 23:15:00
--
Dim s As String
s=""
For Each r As Row In Tables("人员").GetCheckedRows
s= s & r.DataRow("姓名") & ";"
Next
Forms("检测人员列表").DropDownBox.value = s
Forms("检测人员列表").DropDownBox.CloseDropdown()
-- 发布时间：2019/5/29 23:26:00
-- 按照修改代码后下拉列表框中仍然是什么都没有
还是不行
-- 发布时间：2019/5/30 9:43:00
--
以下是引用shilhoue在2019/5/29 23:26:00的发言：
还是不行
还是不行
实例发上来测试
-- 发布时间：2019/5/30 21:51:00
--
此主题相关图片如下：sec_android_app_voicerecorder_111px_1135463_easyicon.net.jpg
附件压缩后还是太大上传不了，只能上传这个截图。
想实现单击下拉窗口“检测人员列表”中table的复选框，姓名在下拉列表框中列出，中间用“；”分隔。请甜版看看这个代码怎么写，
[此贴子已经被作者于2019/5/30 22:08:24编辑过]
-- 发布时间：2019/5/30 23:47:00
--
你dropbox控件，绑定了表列？试试改成
Dim s As String
s=""
For Each r As Row In Tables("人员").GetCheckedRows
s= s & r.DataRow("姓名") & ";"
Next
msgbox(s)
Forms("检测人员列表").DropDownBox.value = s
Forms("检测人员列表").DropDownBox.WriteValue
Forms("检测人员列表").DropDownBox.CloseDropdown()
-- 发布时间：2019/5/31 5:45:00
-- 还是不行啊
是的，绑定了“任务安排”表的相关列。我吧这个代码写在下拉窗口“检测人员列表”的DropDownClosed事件中没有反应，是不是触发的事件不对？我在下拉窗口中增加了一个按钮，写在按钮的Click事件中也没有反应，不知道什么原因。
-- 发布时间：2019/5/31 6:04:00
--
这是示例，不知道怎么才能实现我想要的功能
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |