怎样判断是不是最后一条记录

[goldfish9]

我想让记录在最后一条的时候，出现一个对话框。可是我实现不了，总出现一条空的记录然后才弹出对话框。我的代码是这样的：
if rs.EOF = False Then
rs.MoveNext
Else
MsgBox "这是最后一条记录"
End If

[zw_yu]

没做循环。很多记录的话应该做循环

[zw_yu]

do until rs.eof
rs.movenext
loop
MsgBox "这是最后一条记录"

[goldfish9]

不行的。

[enhydraboy]

You can not judge in the command_click event.
You must write code to judge in the rscordset_MoveComplete event


Private Sub rsCommand1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
If rsCommand1.EOF Then
MsgBox "Last Record"
If Not rsCommand1.BOF Then
rsCommand1.MovePrevious
End If
End If
End Sub

when you bind recordset to your controls dynamicly, modify your recordset declaration code.

Private rs withevents as adodb.recordset

[e4snake]

if rs.EOF = False Then
rs.MoveNext
Else
rs.MovePreviw '好像是这样写的，就是到上一条记录的命令
MsgBox "这是最后一条记录"
End If

[goldfish9]

能不能用一个值来表示最后一条记录的。比如：如果A=最后一条记录，则弹出对话框。
如果可以的话。那”最后一条记录“怎样表示的呢？

[Zedee]

可以用rs的当前记录计数方法（好像是rs.count记不清了）
和sql语句selcct count(字段名) from 表名 的结果比较，相等时说明是最后一条

不过这样做不太好，没必要的话还是用e4snake(小蛇) 的方法吧（到上一条记录的命令rs.moveprevious)

[zw_yu]

if not rs.eof then
text1.text = rs("name")
rs.movenext
if rs.eof then
msgbox "last one"
end if
end if

[busisoft]

if rs.EOF = False Then

rs.MoveNext

if rs.EOF=True then MsgBox "这是最后一条记录"

End If

[enhydraboy]

为什么不在记录集的MoveComplete中做呢
Private Sub rsCommand1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
If rsCommand1.EOF Then
MsgBox "Last Record"
If Not rsCommand1.BOF Then
rsCommand1.MovePrevious
End If
End If
End Sub

[zhangyp]

rs.movefirst
do until rs.eof
rs.movenext
loop
rs.MovePrevious
MsgBox "这是最后一条记录"

[wuzhiliang]

换一个方式,用rs.recordCount...