在datagrid控件中,当前光标的位置就是rs里数据行的位置,所以只接用rs.delete 就OK了,你可以在它之前弹个对话框证实一下将要删除的行。dim a,b
a=rs.fields(0)
b=msgbox("确实要删除"+a+"吗?",vbOKCancel)
if b=1 then
rs.delete
else:end
end if
a=rs.fields(0)
b=msgbox("确实要删除"+a+"吗?",vbOKCancel)
if b=1 then
rs.delete
else:end
end if
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货