＋设为首页 ＋添加到收藏夹
我用bookmark，谁有更好办法请告诉我。
程序如下：
strSql = "select * from 维修项目表 where 维修项目表.宿舍号= " & Trim(dormno) & ""
rs维修.Open strSql, con, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs维修
DataGrid1.Refresh
Private Sub cmdDelete_Click()
Dim i As Integer, j As Integer
For i = 1 To DataGrid1.SelBookmarks.Count
j = DataGrid1.SelBookmarks.Item(i - 1)
rs维修.Bookmark = j
rs维修.Delete
rs维修.MoveNext
rs维修.Update
If rs维修.EOF Then rs维修.MoveLast
Next i
DataGrid1.Refresh
End Sub
请问这段代码哪里不对，该如何修正呢？
在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
