快速开发平台--组合框模糊查询按Tab键出错的修改方法（适用于1.7.2之前的版本，包括1.7.2）

时　间:2014-09-26 12:29:23
作　者:缪炜   ID：24010  城市：江阴
摘　要:快速开发平台的组合框模糊查询按Tab键出错的修改方法（适用于1.7.2之前的版本，包括1.7.2）
正　文:

     在快速平台的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