我想在程序中点击一个删除按钮来删除DataGrid中选中的一行数据该怎么做呀??
解决方案 »
- 求助:以System启动的程序怎么创建User级别的进程啊
- vb+datareport请问大家打印的时候如何加打印页码
- 请问连接SQL数据的连接字符串怎样写``
- 高分求助!如何识别扑克牌是几点
- 为什么?为什么?ADO怎么变态了???
- 如何穷举一个Form中的所有控件,望不惜赐教!
- 高分请教菜鸟问题!~参与者都有分!!问题解答后还会开贴子送分!决无食言!!!!
- ★★奉劝Nicrosoft,DeD不要摆阔,有本事,把我的问题搞定★★
- 一个vb程序可否在安装在98上以后每当系统启动时,就执行它?
- 帮帮我啊,我要零级的操作权!!
- 在VB中怎么实现远程SQL Server数据库的拷贝
- 请问在VB6中,如何获得本机的计算机名和IP地址?
返回一个在 DataGrid 控件中所有选定的记录的书签集合。语法object.SelBooksobject 所在处代表对象表达式,其值是“应用于”列表中的对象。说明当一个记录在 DataGrid 控件中被选定的时候,它的书签被追加到 SelBooks 属性所返回的集合中。例如,如果创建 DataGrid 控件所创建的一组 Recordset 对象,则可以用来自 SelBooks 集合的书签将分组的 Recordset 重新定位,以处理单个的数据记录。
这个例子在用户已选定的行间循环并将它们从数据库中删除。Sub DeleteRows()
Dim varBmk As Variant
For Each varBmk In DataGrid1.SelBooks
Data1.Recordset.Book = varBmk
Data1.Recordset.Delete
Data1.Refresh
Next
End Sub
'--------------------
If dgLaborTrain.SelBooks.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.SelBooks
rsLaborTrain.Book = varBmk
rsLaborTrain.Delete
Next
End Sub
Dim varBmk As Variant
For Each varBmk In DataGrid1.SelBooks
Data1.Recordset.Book = varBmk
Data1.Recordset.Delete
Data1.Refresh
Next
End Sub
我这么做了以后但是当删除第一条时,这条记录依然还在DataGrid控件上显示,当删除第二个时第一条才没有,但是第二条在控件上显示,一次类推,我必须删除第n-1条,删除的第n条才在DataGrid控件上消失
Dim varBmk As Variant
For Each varBmk In DataGrid1.SelBooks
Data1.Recordset.Book = varBmk
Data1.Recordset.Delete
Data1.Refresh
Nextset DataGrid1.datasource=data1.recordsetEnd Sub
ADODC1.Recordset.Delete
ADODC1.Refresh当选中DataGrid中的一条记录时,Recordset将定位到那条记录。