在快速平台的1.7.2之前的版本中，包括1.7.2中，在使用组合框的模糊查询中，有时会出错这样的错误

复制以下代码，把出错的过程整个覆盖

Private Sub mcboSearch_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim blnDirty As Boolean

    If Shift = 0 Then
        Select Case KeyCode
        Case vbKeyUp, vbKeyDown
            mcboSearch.OnChange = ""
        Case vbKeyTab, vbKeyReturn
            blnDirty = True
            If TypeOf mcboSearch.Parent Is Form Then
                If mcboSearch.Parent.RecordSource <> "" Then
                    blnDirty = mcboSearch.Parent.Dirty
                End If
            End If
            If blnDirty Then
                If mcboSearch.ListCount > 0 Then
                    If mcboSearch.ColumnHeads Then
                        mcboSearch.Value = mcboSearch.ItemData(1)
                    Else
                        mcboSearch.Value = mcboSearch.ItemData(0)
                    End If
                End If
            End If
        Case Else
            mcboSearch.OnChange = "[Event Procedure]"
        End Select
    End If
End Sub