- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]单元格下拉窗口中的列表项目能否按拼音排序 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126678)
-- 发布时间：2018/10/26 13:52:00
-- [求助]单元格下拉窗口中的列表项目能否按拼音排序
如题：
此主题相关图片如下：image 2.jpg
单元格下拉窗口的打开事件代码：
Dim items As String = ""
For Each dr As DataRow In DataTables("人民陪审员").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() \'将输入焦点返回下拉列表框
-- 发布时间：2018/10/26 14:08:00
--
增加一个辅助列，保存拼音
Dim lsx As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
lsx.ComboList = DataTables("人民陪审员").GetComboListString("姓名","","拼音列")
lsx.Value = e.Form.DropDownBox.text
e.Form.DropDownBox.Select()