1,216
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
seagullflying 2004-02-11
- 打赏
- 举报
增加一个删除按钮
直接 在里面 写上 rs.delete 就可以了啊
直接 在里面 写上 rs.delete 就可以了啊
northwolves 2004-02-08
- 打赏
- 举报
Private Sub Command1_Click()
Dim rs As New ADODB.Recordset
Set rs = DataGrid1.DataSource
rs.Delete adAffectCurrent
End Sub
Dim rs As New ADODB.Recordset
Set rs = DataGrid1.DataSource
rs.Delete adAffectCurrent
End Sub
zhenggoufeng 2004-02-08
- 打赏
- 举报
就这样一条语句就可以解决问题，不信你试不试
Private Sub Command1_Click()
Data1.Recordset.Delete
End Sub
wxrwan 2004-02-07
- 打赏
- 举报
你想要的是培培兄的方法。
cloudtarget 2004-02-07
- 打赏
- 举报
with rs
.delete
if .eof then
.movelast
else
.movenext
end if
.Update
end with
.delete
if .eof then
.movelast
else
.movenext
end if
.Update
end with
sonique 2003-10-05
- 打赏
- 举报
批量删除datagrid中的记录（用shift多选后）
其中rs为一个recordset，是datagrid的datasource
Dim varBmk As Variant
With Rs
For Each varBmk In gridBook.SelBookmarks '当DataGrid某一行处于选中状态时
.Bookmark = varBmk
.Delete
If .EOF Then
.MoveLast
Else
.MoveNext
End If
Next varBmk
End With
其中rs为一个recordset，是datagrid的datasource
Dim varBmk As Variant
With Rs
For Each varBmk In gridBook.SelBookmarks '当DataGrid某一行处于选中状态时
.Bookmark = varBmk
.Delete
If .EOF Then
.MoveLast
Else
.MoveNext
End If
Next varBmk
End With
goodname008 2003-10-05
- 打赏
- 举报
Option Explicit
Private Sub Command1_Click()
DataGrid1.AllowDelete = True
Adodc1.Recordset.Delete adAffectCurrent
End Sub
Private Sub Command1_Click()
DataGrid1.AllowDelete = True
Adodc1.Recordset.Delete adAffectCurrent
End Sub
