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

2006-12-29 22:44
2006-12-29 23:17