主题：[求助]下拉窗口多拼音筛选

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() '将输入焦点返回下拉列表框