PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=13ThenIfNotIsNumeric(Text1.Text)ThenMsgBox"输入不符合条件，采购员编号必须为数字"ElseAdodc1.RecordSource="select*fromT_cgyzlwhere采购员编号='"+Text1.Text+"'"Adodc1.RefreshIfAdodc1.Recordset.R