Private Sub Command1_Click()wurst.Filter = "成绩>=98"
MSHFlexGrid1.Refresh
End SubPrivate Sub Command2_Click()
wurst.Delete adAffectGroup '报错,3219,操作在该内容中不被允许
MSHFlexGrid1.Refresh
End Sub
MSHFlexGrid1.Refresh
End SubPrivate Sub Command2_Click()
wurst.Delete adAffectGroup '报错,3219,操作在该内容中不被允许
MSHFlexGrid1.Refresh
End Sub
wurst.Filter = "成绩>=98"
wurst.Delete adAffectGroup
也不行!!
cn.execute "Delete from table Where 成绩>=98 "