主题：[分享]高效健康的录入方式

 

已经实现：

设计目的：各类信息录入都是一个工作量比较大的事情，尽量增加录入的准确性，减少查找、选择的时间，一是增加了录入速度，二是让查找、选择的窗口尽量少打开，保护视力！

              在录入框(下拉组合框)中输入汉字或相应名称的拼音码，如果录入框中的值就等于相应的名称则下拉窗口不打开，录入框中的值就直接显示并录入成功；如果不相等则打开下拉窗口，执行模糊查找，选择相应的名称录入。

意义：1、提高录入速度；

         2、尽量减少下拉窗口打开次数，就可以减少屏幕的"闪烁“，保护视力！ 

操作：1、输入姓名（汉字）或相应名称的拼音码后按Enter键或者按 空格，有对应的名称则录入框中直接显示并完成这个录入框的录入；否则 打开下拉窗口进行查找。

         2、打开下拉窗口后，按向上键 或向下键 选择需要的行，按Enter确认输入；或者在需要的行上双击鼠标左键选择输入

 例子在下面：

 修正了19楼提出的BUG，并同时感谢19楼！！

 

---

以下内容只有回复后才可以浏览

---

1、新增在数据表内的录入方式。

2、操作方法作了修改，按照常规文字输入按“空格”键的习惯：在单元格内输入 汉字 或 拼音码→ 按 空格 →a、存在对应的名称，按回车确认。b、无对应的名称，则打开下拉窗口 按单元格内的内容进行模糊查找，按上、下键选择所需要的行→按回车 确认。录入完成！！

---

以下内容只有回复后才可以浏览

---

找到 下拉不打开?  没找到则模糊查询?  那下拉窗口有何用?  没太搞懂你这逻辑哦.

我是一个医务人员，很多方面是从健康方面考虑，这种方式的意义：1、尽量减少对眼睛的伤害（原理很多，在这不赘述）；2、提高一点录入速度，客户熟悉操作以后，基本看不到下拉窗口的出现。

能否直接说下你想实现的效果?

是不是想这样?

谢谢5楼，正在阅读和测试，还没完全实现。

不知是不是这个意思：

If e.KeyCode = Keys.Enter Then
    Dim bln As Boolean
    For Each s As String In e.Sender.ComboList.Split("|")
        If s = e.Sender.Text Then
            bln = True
            Exit For
        End If
    Next
    If bln = False Then
        Dim str As String
        For Each s As String In e.Sender.ComboList.Split("|")
            If s Like "*" & e.Sender.Text & "*" Then
                str + = s & "|"
            End If
        Next
        If str > "" Then
            e.Sender.ComboList = str.Trim("|")
            e.Sender.OpenDropDown()
        Else
            e.Sender.Text = ""
            e.Cancel = True
        End If
    End If
End If

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

点击浏览该文件:组合框的下拉框打开控制.table

感谢各位老师的指导、指点，现在实现了我的设计目的，上个例子供大家参考。

设计目的：在下拉组合框中输入姓名或姓名的拼音码，如果找到对应的姓名，下拉组合框的值就等于相应的姓名（不打开下拉窗口），如果没有则打开下拉窗口，执行模糊查找。 

操作：1、输入姓名或拼音码或按空格键打开下拉窗口进行查找。

         2、打开下拉窗口后，按向上键 或向下键 选择需要的行，按Enter确认输入；或者在需要的行上双击鼠标左键选择输入

 

在一楼下载！

谢谢分享