Ta上传的资源 (0)

PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=13ThenIfNotIsNumeric(Text1.Text)ThenMsgBox"输入不符合条件，采购员编号必须为数字"ElseAdodc1.RecordSourc