主题：[求助]单元格下拉窗口中的列表项目能否按拼音排序

如题：

此主题相关图片如下：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() '将输入焦点返回下拉列表框