[此贴子已经被作者于2006-12-29 21:34:48编辑过]

sFxgNLyU.jpg (25.13 KB)

图片附件: 游客没有浏览图片的权限，请 登录 或 注册

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