19026.html
来自「VB技巧问答10000例 VB技巧问答10000例」· HTML 代码 · 共 38 行
HTML
38 行
<html> <head> <title>有关 ADODB 的 MOVE 问题</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>有关 ADODB 的 MOVE 问题</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:timliu@ms2.url.com.tw">Tim</a> on September 16, 1999 at 20:45:12:<p>小弟请教高手<p>请问为何按 下一笔 和 上一笔的时候 资料recordset 会跑掉呢?<br>但是按 ADODC 控制项 物件 上面的 << < > >> 按钮就可以<br>按正常顺序任意移动笔数 ,请问是什么原因造成?<p>PS. LOCK TYPE = adLockOptimistic <br> CursorLocation = adUseClient<p><br>程式如下:<p>Private Sub CMD_Click(Index As Integer)<br> Select Case Index<br> Case 0 '最前笔<br> Adodc1.Recordset.MoveFirst<br> Case 1 '前一笔<br> While Not Adodc1.Recordset.BOF<br> Adodc1.Recordset.MovePrevious<br> Wend<br> Case 2 '后一笔<br> While Not Adodc1.Recordset.EOF<br> Adodc1.Recordset.MoveNext<br> Wend<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> +------+------+------+------+----+----+<br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 19026--><!--top: 19031--><li><a href="19031.html">Re: 有关 ADODB 的 MOVE 问题</a> <b>小琳</b> <i>21:13:53 9/16/99</i>(<!--responses: 19031-->3)<ul><!--insert: 19031--><!--top: 19033--><li><a href="19033.html">Re: 有关 ADODB 的 MOVE 问题,妳好像写错了~~~</a> <b>BenneL</b> <i>22:14:26 9/16/99</i>(<!--responses: 19033-->1)<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--><!--top: 19032--><li><a href="19032.html">感谢 小琳 大师 </a> <b>Tim </b> <i>21:38:33 9/16/99</i>(<!--responses: 19032-->0)<ul><!--insert: 19032--></ul><!--end: 19032--></ul><!--end: 19031--></ul><!--end: 19026--><br><hr size=7 width=75%><p></body></html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?