# vb6.0 RDC Delete后再新增,AbsolutePosition会不正确?

Posted by linda on August 27, 1997 at 02:42:19:

CODE如下

Private Sub Data1_Reposition()
On Error Resume Next 'show出目前在第几笔记录
If Data1.Resultset.AbsolutePosition < 1 Or ACCa101bro.Gload = True Then Exit Sub
lblNumber = "第 " & Data1.Resultset.AbsolutePosition & " 笔"
如果有三笔记录,目前在第二笔(lblnumber=第二笔),接着将第二笔删除
,则萤幕目前停在第三笔,lblnumber则=第三笔,但实际上应只剩二笔记录,
而lblnumber应show出第二笔才对,请问有没有方法可以立即反应出目前所在
的正确笔数? Thanks a lot.

Follow Ups:

- Re: vb6.0 RDC Delete后再新增,AbsolutePosition会不正确? 小贤 19:37:29 9/10/97 (0)
- Re: vb6.0 RDC Delete后再新增,AbsolutePosition会不正确? 小吴 18:55:56 8/27/97 (0)