- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]下拉窗口多拼音筛选 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120002)
-- 发布时间：2018/6/5 14:52:00
-- [求助]下拉窗口多拼音筛选
编辑表A的第一列，弹出下拉窗口，在单元格里输入多个拼音，用逗号隔开，进行筛选，然后勾选多个复选框，点击确定，为当前单元格赋值。
勾选和确定的代码不会写，请老师指教。谢谢！
此主题相关图片如下：截屏图片.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:拼音_下拉窗口_复选.table |
-- 发布时间：2018/6/5 16:39:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:拼音_下拉窗口_复选.table |
-- 发布时间：2018/6/5 20:39:00
--
点击“确定“按钮，会把下拉窗口中勾选和未勾选的值都录入到单元格了。
请老师帮助看看~谢谢！
Dim lst As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
If lst.SelectedValue > "" Then
e.Form.DropDownBox.CloseDropdown
End If
-- 发布时间：2018/6/5 21:01:00
--
DropDownOpened事件
Dim items As String = ""
For Each dr As DataRow In DataTables("表B").datarows
items += dr("数据") & "|"
Next
Dim lsx As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
lsx.ComboList = items.Trim("|")
lsx.Value = e.Form.DropDownBox.text
e.Form.DropDownBox.Select() \'将输入焦点返回下拉列表框