防止组合框选择更改文本

我在键入组合框时正在构建搜索。搜索和更新使用更改事件。防止组合框选择更改文本

Private Sub ItemName_Change() 

Dim strText, strFind, strSQL, strSelect, strWhere, strOrderBy As String 
strText = Me.ItemName.Text 

strSelect = "SELECT DISTINCT [ItemName] FROM ItemsMaster " 
strWhere = "WHERE type = 'Sold Goods' " 
strOrderBy = " ORDER BY [ItemName];" 
If (Len(Trim(strText)) > 0) Then 
    'Show the list with only those items containing the types letters 
    strFind = "ItemsMaster.ItemName Like '" 
    For i = 1 To Len(Trim(strText)) 
     If (Right(strFind, 1) = "*") Then 
      strFind = Left(strFind, Len(strFind) - 1) 
     End If 
     strFind = strFind & "*" & Mid(strText, i, 1) & "*" 
    Next 

    strFind = strFind & "'" 
    strSQL = strSelect & strWhere & "AND " & strFind & strOrderBy 

    Me.ItemName.RowSource = strSQL 

Else 
    strSQL = strSelect & strWhere & strOrderBy 
    Me.ItemName.RowSource = strSQL 
End If 

Me.ItemName.Dropdown 


End Sub

但是当我尝试从下拉列表中选择项目时，它会更新文本并触发更改事件。有没有什么方法可以让用户滚动浏览列表而无需组合框更改文本框中的文本？

来源

2016-07-20 Jap

您是否尝试过从按键而不是组合框的更改事件运行此操作？ –

你也许可以通过测试是否LISTINDEX克服这个问题大于-1在事件处理程序的启动和退出，如果是这样，例如：

Private Sub ItemName_Change() 
    If ItemName.ListIndex > -1 Then 
     Exit sub 
    End if 

    ... 
End Sub

我觉得虽然是有（a）一个文本框（文本输入到该文本框中，并触发你所写的更改事件）&（b）一个列表框（b）一个列表框，它显示搜索结果 - 然后当用户选择一个项目时，该操作与输入控件分离。

来源

2016-07-22 04:38:34

防止组合框选择更改文本

回答

相关问题