＋设为首页 ＋添加到收藏夹
我想在程序中点击一个删除按钮来删除DataGrid中选中的一行数据该怎么做呀？？
Private Sub cmdDelete_Click()
--------------------
If dgLaborTrain.SelBookmarks.Count = 0 Then
MsgBox "请选择一条记录以供操作!", vbOKOnly + vbExclamation, "注意！"
Exit Sub
End If
--------------------------
intYesNo = MsgBox("确实要删除这条参数吗？", vbYesNo + vbExclamation, "注意！")
If intYesNo = vbYes Then
Dim varBmk As Variant
For Each varBmk In dgLaborTrain.SelBookmarks
rsLaborTrain.Bookmark = varBmk
rsLaborTrain.Delete
Next
End Sub
Sub DeleteRows()
Dim varBmk As Variant
For Each varBmk In DataGrid1.SelBookmarks
Data1.Recordset.Bookmark = varBmk
Data1.Recordset.Delete
Data1.Refresh
Next
set DataGrid1.datasource=data1.recordset
End Sub
没那么麻烦:
ADODC1.Recordset.Delete
ADODC1.Refresh
当选中DataGrid中的一条记录时，Recordset将定位到那条记录。
