回复 6楼 kiff
我根据你的思路我改了下程序现在可以了,也给你看看我程序IF EOF('xscjb')
RETURN
ENDIF
if messagebox("您确定要删除当前的学生成绩么?",1+64+256,"提示")=1
use xscjb
zap in xscjb
PACK
GO BOTTOM in xscjb
close table
use 学生成绩表
DELETE FROM 学生成绩表 WHERE 课程号==allt(thisform.text1.value) and 姓名==allt(thisform.text2.value)
PACK
thisform.Refresh
endif
非感谢谢你的帮助