組合框模糊查詢(xún),單窗體可以,數(shù)據(jù)表跟連續(xù)窗體都不行....

ruanjy

Private b

Private Sub 堆頭陳列商品_Change()



End Sub

Private Sub 堆頭陳列商品_KeyDown(KeyCode As Integer, Shift As Integer)

    Select Case KeyCode
    Case vbKeyUp, vbKeyDown
        Me.堆頭陳列商品.OnChange = ""
    Case Else
        Me.堆頭陳列商品.OnChange = "[Event Procedure]"
    End Select
   
End Sub

Private Sub 堆頭陳列商品_KeyUp(KeyCode As Integer, Shift As Integer)
    Dim a As String
    a = "*" & Me.堆頭陳列商品.Text & "*"
    Me.堆頭陳列商品.RowSource = "SELECT 商品ID, 貨品編號(hào) FROM 商品目錄 Where 貨品編號(hào) like '" & a & "';"
    Me.堆頭陳列商品.Dropdown
    b = Me.堆頭陳列商品.Column(0, 0)
End Sub

Private Sub 堆頭陳列商品_NotInList(NewData As String, Response As Integer)

    Dim ctl As Control
    Set ctl = Me!堆頭陳列商品
    Response = acDataErrContinue
    ctl.Undo
    Me.堆頭陳列商品 = b
    Me.堆頭陳列商品.RowSource = "SELECT 商品ID, 貨品編號(hào) FROM 商品目錄;"
    SendKeys ("{Tab}")
   
End Sub


Private Sub chrWares_Change()

    Me.chrWares.RowSource = "select id,chrwares from tbllist where chrwares like '*" & Me.chrWares.Text & "*';"
    Me.chrWares.Dropdown

End Sub

Private Sub chrWares_KeyDown(KeyCode As Integer, Shift As Integer)

    Select Case KeyCode
    Case vbKeyUp, vbKeyDown
        Me.chrWares.OnChange = ""
    Case Else
        Me.chrWares.OnChange = "[Event Procedure]"
    End Select

End Sub   

都失敗............

yangruihao

我前兩天也遇到類(lèi)似的問(wèn)題，至今未解決

ruanjy

我前兩天也遇到類(lèi)似的問(wèn)題，至今未解決.....................頂起來(lái)。。到解決為止