19033.html
来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 27 行
HTML
27 行
<html> <head> <title>Re: 有关 ADODB 的 MOVE 问题,妳好像写错了~~~</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>Re: 有关 ADODB 的 MOVE 问题,妳好像写错了~~~</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by BenneL on September 16, 1999 at 22:14:26:<p>In Reply to: <a href="19031.html">Re: 有关 ADODB 的 MOVE 问题</a> posted by 小琳 on September 16, 1999 at 21:13:53:<p>改成如下即可:<br>: : Private Sub CMD_Click(Index As Integer)<br>: : Select Case Index<br>: : Case 0 '最前笔<br>: : Adodc1.Recordset.MoveFirst<br>: : Case 1 '前一笔<br> Adodc1.Recordset.MovePrevious '往前一笔<br> if adodc1.recordset.BOF then '若已是开头则回第一笔<br> Adodc1.Recordset.Movefirst<br> end if <br>: : Case 2 '后一笔<br> Adodc1.Recordset.Movenext '往后一笔<br> if adodc1.recordset.EOF then '若已是结尾则回最后一笔<br> Adodc1.Recordset.Movelast<br> end if <br>: : Case 3 '最后笔<br>: : Adodc1.Recordset.MoveLast<br>: : Case 4 '新增<br>: : Adodc1.Recordset.AddNew<br>: : Case 5 '修改<br>: : Adodc1.Recordset.Update<br>: : Case 6<br>: : <br>: : End Select<p>: : 画面如下 <p>: : +-----------+<br>: : | | --> 资料库某一栏<br>: : +-----------+ <p>: : +----+-------------------------+-----+<br>: : |<< <| Adodc1 物件 |> >> |<br>: : +----+-------------------------+-----+<p>: : +------+------+------+------+----+----+<br>: : |最前笔|前一笔|后一笔|最后笔|新增|修改|<br>: : +------+------+------+------+----+----+<p>: :::小女子试了一下并没有这些问题存在,能否将程式<br>: 传给小女子看看!!!(Luo570@ms31.hinet.net)<p><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 19033--><!--top: 19043--><li><a href="19043.html">Re:有关ADODC MOVE 问题 ~~我解决了!!</a> <b>Tim </b> <i>08:00:31 9/17/99</i>(<!--responses: 19043-->0)<ul><!--insert: 19043--></ul><!--end: 19043--></ul><!--end: 19033--><br><hr size=7 width=75%><p></body></html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?