请教

[bjbs_vb]

yn = MsgBox("确定要删除'" & RTrim(rst_xtglj_b!mc) & " '吗", vbYesNo)
If yn = vbYes Then
rst_gljde_b.Filter = "jx_dh =" & "'" & rst_xtglj_b!glj_dh & "'"
rst_gljde_b.Delete adAffectGroup
End If

执行以上命令,错误提示"此种状态不能这样操作"
我不知是什么原因,请指教.
ADO连接,客户,静态

[阿泰]

改成这样行吗？

rst_gljde_b.Filter = "jx_dh =" & "'" & rst_xtglj_b!glj_dh & "'"
If rst_gljde_b.Recordcount>0 then rst_gljde_b.Delete

[RUKYO]

那就用SQL的Delete语句

[bjbs_vb]

SQL的Delete语句如何删除RST中记录?(不是数据表的,还未写入)

[阿泰]

我以前也遇到批量删除本地记录集的情况,
但是用这个参数好象不管用,后来用了笨办法,一条条删,希望能有更好的方法
rst_gljde_b.Filter = "jx_dh =" & "'" & rst_xtglj_b!glj_dh & "'"
If rst_gljde_b.Recordcount>0 then
rst_gljde_b.MoveFirst
DO While not rst_gljde_b.EOF
rst_gljde_b.Delete
rst_gljde_b.MoveNext
Loop
End If
rst_gljde_b.Filter =""

[bjbs_vb]

只能这样了,谢谢你,不知还有没有其他方法

[bjbs_vb]

rst_gljde_b.Delete 当然行,加adAffectGroup就不行了,主要是一次删除多条记录