组合框内拼音首字母筛选 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 组合框内拼音首字母筛选

共有4069人关注过本帖树形打印复制链接主题：组合框内拼音首字母筛选

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/5 13:10:00 [显示全部帖子]

参考

下载信息 [文件大小：324.0 KB 下载次数：28]
点击浏览该文件:拼音_下拉窗口_示例.table

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/5 14:58:00 [显示全部帖子]

以下是引用comnets在2018/1/5 13:34:00的发言：
不能打开非开发版格式的文件。。。

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

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/7 18:31:00 [显示全部帖子]

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

上传你做的。

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/9 9:42:00 [显示全部帖子]

以下是引用comnets在2018/1/9 9:22:00的发言：
我做出来的也是正常的。效果一样。

我现在想要输入编码直接在录入框显示需要内容，不用点下拉窗口的内容，可以实现吗？

比如输入输入zc，直接显示"创造"，不同内容有完全重复的编码时再点按鼠标/键盘在下拉框内选择。

[此贴子已经被作者于2018/1/9 9:25:35编辑过]

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

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

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/9 9:46:00 [显示全部帖子]

以下是引用有点甜在2018/1/9 9:42:00的发言：

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

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

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

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/15 15:57:00 [显示全部帖子]

以下是引用comnets在2018/1/15 15:44:00的发言：
在这里怎样实现未输入时点下拉按钮下拉框内出现的是全部选项？

[此贴子已经被作者于2018/1/15 15:43:50编辑过]

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

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/16 10:25:00 [显示全部帖子]

上传具体实例说明你的问题。

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/16 12:00:00 [显示全部帖子]

参考

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

有点甜

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/16 14:17:00 [显示全部帖子]

以下是引用comnets在2018/1/16 13:43:00的发言：
可行。但是下拉框里是按什么顺序展示的啊，顺序很奇怪，不是表里从上到下的顺序，而且还是固定不变的。每次都是那个奇怪的顺序。

[此贴子已经被作者于2018/1/16 13:43:44编辑过]

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

下一主题 >> << 上一主题

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