在recordset对象被筛选的情况下，怎样正确使用movenext或move方法？请高手看看。

wuaza

我要用到movenext方法在子窗体记录集中移动记录到当前记录的下一条。可是当我在子窗体中应用了筛选操作以后，movenext失灵了，movenext移来移去还是在当前记录上。帮助中有这么一句，不知怎么理解？

“在 Recordset 已被过滤或排序且当前记录的数据已更改的情况下，位置可能也会改变。在这种情况下，MoveNext 方法运行正常，但应注意该位置已从新位置向前移动一个记录，而非原来的位置。”

这样的情况下难道要用me.recordset.move 2   吗？

fan0217

是使用什么方法建立的 Recordset?将你建立记录录集的代码贴出或上传例子.

wuaza

    strsql = "SELECT * from y健康证 where 姓名+单位 like '%" & Me.Text0.text & "%'"
    Me.合格.Form.RecordSource = strsql
    For i = 0 To Forms!y健康证!合格.Form.SelHeight - 1
    strwhere = strwhere & "," & Forms!y健康证!合格.Form.id
    Forms!y健康证!合格.Form.Recordset.MoveNext
    Next
当Me.合格.Form中的记录经过筛选后，上述语句就不正常了，主要是经过movenext以后，Forms!y健康证!合格.Form.id始终停留在一个固定的值上。

fan0217

用DAO的方法试试.

Dim rs As DAO.Recordset

Set rs = Me.Child1.Form.Recordset

If Not rs.EOF Then
    rs.MoveNext
End If

LucasLynn

以下是引用wuaza在2006-4-13 16:05:00的发言：
    strsql = "SELECT * from y健康证 where 姓名+单位 like '%" & Me.Text0.text & "%'"
    Me.合格.Form.RecordSource = strsql
    For i = 0 To Forms!y健康证!合格.Form.SelHeight - 1
    strwhere = strwhere & "," & Forms!y健康证!合格.Form.id
    Forms!y健康证!合格.Form.Recordset.MoveNext
    Next
当Me.合格.Form中的记录经过筛选后，上述语句就不正常了，主要是经过movenext以后，Forms!y健康证!合格.Form.id始终停留在一个固定的值上。

方便的话，把整个程序发上来，帮你调试下看看。

sgrshh29

可以用:

me.forms!y健康证!合格.setfocus
docmd.gotorecord , , acnext
代替

Forms!y健康证!合格.Form.Recordset.MoveNext