locate all for 员工编号=thisform.text1.value and 姓名=thisform.text2.value
if !eof()
delete
pack
else
messagebox("员工编号或姓名错误")
endif
locate all for 员工编号=thisform.text1.value and 姓名=thisform.text2.value
if !eof()
delete
pack
else
messagebox("员工编号或姓名错误")
endif