Sub DeleteRows()
Dim varBmk As Variant
For Each varBmk In DataGrid1.SelBookmarks
Data1.Recordset.Bookmark = varBmk
Data1.Recordset.Delete
Data1.Refresh
Next
End SubSelBookmarks 集合包含所有选定的记录的书签。当最终用户手工选择记录时(即在单击时按住 CTRL 键),每一个选定的记录的书签都会加入到该集合。使用标准的循环,用户可以知道已经选定了什么,也可以保存书签(因为可能需要恢复某个值),以及执行操作:
Dim i as Integer ' 计数器
Dim intCount As Integer
intCount = DataGrid1.SelBookmarks.Count - 1
ReDim arrSelBK(intCount) ' 声明用于保存书签的数组。
For i = 0 To intCount
ArrSelBK(i) = DataGrid1.SelBookmarks(i)
' 在此处执行操作。如果该操作必须被
' 取消,则退出该循环,然后使用该数
' 组来取消这些更改。
Next i