关于movenext的一点小问题
这是我写的移动到下一条的代码,有点小问题不满意,点一次会自动移动到下一条记录,如果中间有N条记录不满足条件,也需要点击N次后才会在窗体显示我需要的记录,白白点击的这么多次窗体text内容不会变动(当然我也不需要让它变动)。我的想法是有什么法子,会跳过这中间的N个不满足条件的记录一次性跳到满足条件的记录并在窗体显示出来,真抠老壳!请大侠相助!Private Sub Cmd_Next_Click()
'If rst.State = adStateOpen Then rst.Close
'rst.Open "SELECT * FROM GzTable where 来往单位=' & Com_Sz.Text'", conn, adOpenKeyset, adLockOptimistic
If rst.BOF = False And rst.EOF = False Then
If rst.Fields("来往单位").Value = Com_Sz.Text And rst.Fields("是否结账").Value = False Then
Txt_JE.Text = rst.Fields("挂账金额").Value
Txt_Rq.Text = rst.Fields("日期").Value
Txt_Qd.Text = rst.Fields("签单人").Value
Txt_Lm.Text = rst.Fields("挂账类目").Value
Txt_Bz.Text = rst.Fields("备注").Value
End If
End If
If rst.EOF = True Then
MsgBox "已经是最后一条记录了!!", vbCritical + vbOKOnly, "提示"
Else
rst.MoveNext
End If
End Sub