Private Sub DataCombo2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Ado_item.Recordset.MoveFirst
Ado_item.Recordset.Find "itemcode = '" & DataCombo2.Text & "'"
If Ado_item.Recordset.EOF Then
MsgBox "find error"
End If
End Ifado_item和datacombo2是关联的,我在组合框中输入值后回车.
我输入的都是ado_item中有的值,怎么办?
If KeyCode = 13 Then
Ado_item.Recordset.MoveFirst
Ado_item.Recordset.Find "itemcode = '" & DataCombo2.Text & "'"
If Ado_item.Recordset.EOF Then
MsgBox "find error"
End If
End Ifado_item和datacombo2是关联的,我在组合框中输入值后回车.
我输入的都是ado_item中有的值,怎么办?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货