📄 1639.html
字号:
<html> <head> <title>SelBookmarks</title> </head> <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK=""> <center> <h1>SelBookmarks</h1> </center><HR><p>Posted by <a href="mailto:yfwu@iname.com">小吴</a> on January 06, 1998 at 16:39:31:<p>In Reply to: <a href="1632.html"><b>selbookmark</b></a> posted by 小贤 on January 04, 1998 at 19:28:38:<p>SelBookmarks 传回的型别是 Variant。范例在线上说明已经写得很清楚了。要知道有多少列被选取可由 SelBookmarks.Count 属性中得知。其中所存放的 bookmark 可由编号 0 至 SelBookmarks.Count - 1 中取得。<p>Sub DeleteRows()<br> Do Until DBGrid1.SelBookmarks.Count = 0 <br> Data1.Recordset.Bookmark = DBGrid1.SelBookmarks(0)<br> Data1.Recordset.Delete<br> Data1.Refresh<br> Loop<br>End Sub<p>下面这段程式功能相同，都是把所选的记录给删除。<br>Sub DeleteRows()<br> Dim i As Integer<br> For i = DBGrid1.SelBookmarks.Count - 1 To 0 Step -1<br> Data1.Recordset.Bookmark = DBGrid1.SelBookmarks(i)<br> Data1.Recordset.Delete<br> Next i<br>End Sub<br><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 1639--></ul><!--end: 1639--><br><HR><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -