VB，我想点击删除按钮删除被选中的DataGrid其中一行？怎么办
展开全部
以下是删除按钮代码...rec要定义...dim rec as new recordset
If rec.RecordCount < 1 Then
MsgBox ("未找到数据信息,请确认!"), vbOKOnly, "错误"
Exit Sub
Else
If MsgBox("数据删除不可恢复,请确认!", vbYesNo) = vbYes Then
rec.Delete
rec.MoveNext
rec.Requery
End If
End If
If rec.RecordCount < 1 Then
MsgBox ("未找到数据信息,请确认!"), vbOKOnly, "错误"
Exit Sub
Else
If MsgBox("数据删除不可恢复,请确认!", vbYesNo) = vbYes Then
rec.Delete
rec.MoveNext
rec.Requery
End If
End If
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
