为什么下一条记录显示不出来，还是原来的记录

xxy802 2003-09-29 09:05:45

在
Private Sub Form_Load()
Set Rs = New Recordset
Rs.Open "select gcID from T_clb", Cn, adOpenStatic, adLockOptimistic

cmbHth.Text = Rs!gcID
mbDataChanged = False
End Sub

Private Sub Next_Click()
If Not Rs.EOF Then Rs.MoveNext
If Rs.EOF And Rs.RecordCount > 0 Then
Beep
Rs.MoveNext

End If
mbDataChanged = False
Exit Sub
GoNextError:
MsgBox Err.Description

End Sub

在Next_Click这样写为什么显示的还是原来的纪录呢？
而实际记录已经移动，但就是显示不出来，为什么

...全文

80 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

minghui000 2003-09-30

打赏
举报

xmduane 2003-09-30

打赏
举报

垃圾

orangeh 2003-09-29

打赏
举报

刷新试一下啊

qinyonlhm 2003-09-29

打赏
举报

或者没绑定控件.

qinyonlhm 2003-09-29

打赏
举报

你在Private Sub Next_Click()中没有给cmbHth.Text = Rs!gcID赋值啊.

xxy802 2003-09-29

打赏
举报

不根条件无关
实际记录已经移动，但就是显示不出来，为什么

rexyudl 2003-09-29

打赏
举报

If Rs.EOF And Rs.RecordCount > 0 Then
Beep
Rs.MoveNext

End If
更改为
If not Rs.EOF Then
Beep
Rs.MoveNext
End If

xxy802 2003-09-29

打赏
举报

不好用：（

hemeijun81 2003-09-29

打赏
举报

Private Sub Form_Load()
dim Rs as New adodb.Recordset
Rs.Open "select gcID from T_clb", Cn, adOpenStatic, adLockOptimistic

cmbHth.Text = Rs!gcID
mbDataChanged = False
End Sub

Private Sub Next_Click()
call from load
If Not Rs.EOF Then Rs.MoveNext
If Rs.EOF And Rs.RecordCount > 0 Then
Beep
Rs.MoveNext

End If
mbDataChanged = False
Exit Sub
GoNextError:
MsgBox Err.Description

End Sub