请版主---红土地 指导!
另外,以下代码为什么可以实现我要的效果
If Messagebox(log_1,32+4,log_2)=6
Delete From students Where ;
students.学号 In (Sele scores.学号 From scores Where scores.班别号 In;
(Sele classes.班别号 From classes Where Alltrim(classes.班别名)=cbo1))
Sele students.学号 From students Where Deleted() Into Cursor temp
Delete From scores Where scores.学号 In(Select temp.学号 From temp)
*!*
Delete From scores Where scores.学号
In;
(Select students.学号 From students Where Deleted())&&同时必须,可是不行
Thisform.grid1.RecordSource=Null
Endif
[
本帖最后由 excel2007 于 2009-9-21 17:42 编辑 ]