VB程序员博客

If Adodc1.Recordset.EOF = False Then
Adodc1.Recordset.MoveNext
Else
a = MsgBox("记录已经到结尾…!", 16, "错误")
Adodc1.Recordset.MoveFirst
eixt sub
End If

这个会在最后一条记录有有条空记录

为什么会有这个空记录呢 ？~~怎么修改下程序使最后一条记录后面的空显示不显示
到 最后一条就记录就弹出对话框哈！

或者便于理解直接用 if Adodc1.Recordset.recordcount>0 then

我的意思不是程序运行不出来  而是  我说这个语句运行出来  第一条记录前有条空记录
最后一条记录也有条空的  可以用什么方法消除这种现象么？

设计模式下修改一下 Adodc1 的 BOFAction、EOFAction 属性，默认应该是 0。

谢谢了啊

在数据库里把空记录删除了

标签: , 最后, 移动, 记录