Private Sub 药品编号_AfterUpdate()
Me.药品名称 = Me.药品编号.Column(1)
Me.单价 = Me.药品编号.Column(3)
Me.拼音码 = Me.药品编号.Column(4)
Me.药品编号.Requery
End Sub
药品编号---更改的事件代码
Private Sub 药品编号_Change()
Dim strCriteria As String
Dim strSQL As String
If Not IsNull(Me.药品编号.Text) Then
strCriteria = "Where 拼音码 & 药品编号 & 药品条码 like '*" & Me.药品编号.Text & "*'"
strSQL = "SELECT 药品编号,药品名称,生产厂家,零售价格,拼音码 FROM 基本药品信息表 " & strCriteria
Me.药品编号.RowSource = strSQL
Me.药品编号.Dropdown
End If
End Sub作者: yisen 时间: 2009-5-5 18:13
发现一新问题,就是在第二行录入后,下拉显示器的与录入的不对应,可是按"向下"箭头按键后,可以显示出来...........