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连接,客户,静态
...全文
856打赏收藏
请教
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.MoveFirst
DO While not rst_gljde_b.EOF
rst_gljde_b.Delete
rst_gljde_b.MoveNext
Loop
End If
rst_gljde_b.Filter =""