该怎么加这句.在动作movenext或moveprevious之前先去检查一下recordset的eof或者bof属性

来源：百度知道 编辑：UC知道 时间：2024/06/26 01:19:46
Private Sub cmdNext_Click()

'先移动rs_client记录到后一条
rs_client.MoveNext
'设置前一条和第一条按钮可用
cmdPrev.Enabled = True
cmdFirst.Enabled = True
'如果已经是最后一条记录，则提示用户
If rs_client.EOF = True Then
MsgBox "对不起，已经是最后一条记录了！", vbOKOnly + vbInformation, "注意"
'并且设置“后一条”和最后一条按钮不可用
cmdNext.Enabled = False
cmdLast.Enabled = False
Exit Sub
'如果不是，则个数据表的记录位置移到后一条记录，并且显示之
Else
For i = 0 To 14
Text1(i).Text = rs_client.Fields(i)
Next i
If rs_client.Fields(15) = "男" Then
Combo1.ListIndex = 0
Else
Combo1.ListIndex = 1
End If
End If
End Sub

If not rs_client.EOF Then rs_client.MoveNext
'设置前一条和第一条按钮可用
cmdPrev.Enabled = True
cmdFirst.Enabled = True
'如果已经是最后一条记录，则提示用户
If rs_client.EOF Then
MsgBox "对不起，已经是最后一条记录了！", vbOKOnly + vbInformation, "注意"
'并且设置“后一条”和最后一条按钮不可用
cmdNext.Enabled = False
cmdLast.Enabled = False
Exit Sub
'如果不是，则个数据表的记录位置移到后一条记录，并且显示之
Else
For i = 0 To 14
Text1(i).Text = rs_client.Fields(i)
Next i
If rs_client.Fields(15) = "男" Then
Combo1.ListIndex = 0
Else
Combo1.ListIndex = 1
End If
End If

'换一种思路,你先读取,后移动

Private Sub cmdNext_Click()

'先移动rs_client记录到后一条
'如果已经是最后一条记录，则提示用户
For i = 0 To 14
Text1(i).Text = rs_client.Fields(i)
Next i
If rs_client.Fields(15) = "男" Then
Combo1.ListIndex = 0
Else
Combo1.List