# Re: 有关 ADODB 的 MOVE 问题,妳好像写错了~~~

Posted by BenneL on September 16, 1999 at 22:14:26:

In Reply to: Re: 有关 ADODB 的 MOVE 问题 posted by 小琳 on September 16, 1999 at 21:13:53:

改成如下即可:
: : Private Sub CMD_Click(Index As Integer)
: : Select Case Index
: : Case 0 '最前笔
: : Adodc1.Recordset.MoveFirst
: : Case 1 '前一笔
Adodc1.Recordset.MovePrevious '往前一笔
if adodc1.recordset.BOF then '若已是开头则回第一笔
Adodc1.Recordset.Movefirst
end if
: : Case 2 '后一笔
Adodc1.Recordset.Movenext '往后一笔
if adodc1.recordset.EOF then '若已是结尾则回最后一笔
Adodc1.Recordset.Movelast
end if
: : Case 3 '最后笔
: : Adodc1.Recordset.MoveLast
: : Case 4 '新增
: : Adodc1.Recordset.AddNew
: : Case 5 '修改
: : Adodc1.Recordset.Update
: : Case 6
: :
: : End Select

: : 画面如下

: : +-----------+
: : | | --> 资料库某一栏
: : +-----------+

: : +----+-------------------------+-----+
: : |<< <| Adodc1 物件 |> >> |
: : +----+-------------------------+-----+

: : +------+------+------+------+----+----+
: : |最前笔|前一笔|后一笔|最后笔|新增|修改|
: : +------+------+------+------+----+----+

: :::小女子试了一下并没有这些问题存在，能否将程式
: 传给小女子看看!!!(Luo570@ms31.hinet.net)

Follow Ups:

- Re:有关ADODC MOVE 问题 ~~我解决了!! Tim 08:00:31 9/17/99 (0)