主题：组合框内拼音首字母筛选

参考

下载信息  [文件大小：324.0 KB  下载次数：28]

点击浏览该文件:拼音_下拉窗口_示例.table

在下载开发版的地方，下载一个【商业版】安装后，即可打开.table文件。

3楼的例子，我测试没问题。

上传你做的。

你输入以后，可以出现下拉，然后使用键盘【上下】键，可以选择你需要，然后回车。

或者，你做成直接点击回车的时候，把第一个赋值进去嘛。

TextChanged事件

Dim drp As WinForm.DropDownBox = e.sender
If drp.DroppedDown Then '如果下拉窗口已经打开
    Dim items As String = ""
    For Each dr As DataRow In DataTables("表B").Select("拼音 like '*" & e.sender.Text & "*'")
        items += dr("数据") & "|"
    Next
    Dim lsx As WinForm.ListBox = Forms(e.sender.DropFormName).Controls("ListBox1")
    lsx.ComboList = items.Trim("|")
    If lsx.ComboList > "" Then
        lsx.SelectedIndex = 0
    End If
End If

本来的例子就是这样的，点击下拉，得到的就是全部的选项

参考

Dim items As String = ""
If e.Form.DropDownBox.name = "DropBox1" Then
    For Each dr As DataRow In DataTables("表B").datarows
        items += dr("数据") & "|"
    Next
ElseIf e.Form.DropDownBox.name = "DropBox2" Then
    For Each dr As DataRow In DataTables("表B").datarows
        items += dr("例子") & "|"
    Next
End If
Dim lsx As WinForm.ListBox = e.form.Controls("ListBox1")
lsx.ComboList = items.Trim("|")

e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框

Dim items As String = ""
If e.Form.DropDownBox.name = "DropBox1" Then
    For Each dr As DataRow In DataTables("表B").Select("", "排序列")
        items += dr("数据") & "|"
    Next
ElseIf e.Form.DropDownBox.name = "DropBox2" Then
    For Each dr As DataRow In DataTables("表B").Select("", "排序列")
        items += dr("例子") & "|"
    Next
End If
Dim lsx As WinForm.ListBox = e.form.Controls("ListBox1")
lsx.ComboList = items.Trim("|")

e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框