虚拟键盘输入后，如何设置ComboBox的Text属性强制匹配RowSource行？

我之前也碰到过车间场景里虚拟键盘和Access控件适配的问题，你的核心困扰其实很明确：直接给ComboBox的Text属性赋值，并不会触发它原生的自动匹配逻辑——因为这个AutoComplete功能是绑定在键盘输入事件上的，单纯的文本变更不会唤起它。试过的Requery、Refresh这些方法都是针对数据源的，对控件的输入匹配逻辑没用。给你几个靠谱的解决方案：

方法1：用FindString直接定位匹配项（最稳定） #

这个方法跳过模拟输入，直接找到列表中匹配的项并选中，能立刻让ComboBox显示匹配结果：

Dim ctrlPrevious As Control
Dim matchIndex As Integer
Set ctrlPrevious = Screen.PreviousControl

ctrlPrevious.SetFocus
ctrlPrevious.Text = sTemp
DoEvents

' 查找第一个匹配输入文本的项索引
matchIndex = ctrlPrevious.FindString(sTemp)
If matchIndex <> -1 Then
    ctrlPrevious.ListIndex = matchIndex
End If

' 触发控件更新
ctrlPrevious.Dirty = True
ctrlPrevious.Requery

FindString会从列表里找第一个以sTemp开头的项，设置ListIndex后，ComboBox不仅会选中该行，下拉列表也会自动过滤显示匹配的内容，完全模拟物理键盘输入的效果。

方法2：模拟键盘输入事件（还原原生逻辑） #

如果想要完全复刻物理键盘的输入流程，可以逐个字符模拟键盘输入，这样能完整触发AutoComplete的所有原生逻辑：

Dim ctrlPrevious As Control
Dim char As String
Set ctrlPrevious = Screen.PreviousControl

ctrlPrevious.SetFocus
' 先清空原有内容
ctrlPrevious.Text = ""
DoEvents

' 逐个字符模拟输入
For i = 1 To Len(sTemp)
    char = Mid(sTemp, i, 1)
    SendKeys char, True
    DoEvents
Next i

注意SendKeys的True参数会等待按键处理完成再继续，DoEvents是为了让Access有时间处理控件的事件。这个方法在大多数车间场景里足够用了，如果担心焦点问题，也可以用Windows API的SendInput来模拟，不过代码会复杂一些。

方法3：修复选中/剪切粘贴的问题（备选） #

你之前的选中代码没生效，大概率是控件没真正进入编辑状态。试试调整代码顺序，确保控件获得焦点后再操作：

Dim ctrlPrevious As Control
Set ctrlPrevious = Screen.PreviousControl

ctrlPrevious.SetFocus
DoEvents ' 等待控件获取焦点并进入编辑模式

ctrlPrevious.Text = sTemp
DoEvents

ctrlPrevious.SelStart = 0
ctrlPrevious.SelLength = Len(sTemp)
DoEvents

ctrlPrevious.Cut
DoEvents
ctrlPrevious.Paste
DoEvents

ctrlPrevious.Dirty = True
ctrlPrevious.Requery

不过这个方法依赖控件的编辑状态稳定性，不如前两个方法可靠，优先推荐前两种。

内容的提问来源于stack exchange，提问作者Henrik Erlandsson