|
Henry D. Sy 发表于 2012-9-26 14:11 ![]()
??
Option Compare Database
Private b
Private Sub 堆头陈列商品_Change()
Dim a As String
a = "*" & Me.堆头陈列商品.Text & "*"
Me.堆头陈列商品.RowSource = "SELECT 商品ID, 货品编号 FROM 商品目录 Where 货品编号 like '" & a & "';"
Me.堆头陈列商品.Dropdown
b = Me.堆头陈列商品.Column(0, 0)
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 堆头陈列商品_NotInList(NewData As String, Response As Integer)
Dim ctl As Control
Set ctl = Me!堆头陈列商品
Response = acDataErrContinue
ctl.Undo
Me.堆头陈列商品 = b
Me.堆头陈列商品.RowSource = "SELECT 商品ID, 货品编号 FROM 商品目录;"
SendKeys ("{Tab}")
End Sub
这是我从网上找到组合框模糊查询例子的代码,但这是只有一列字段的,像我的这个多列的字段怎么写 |
|