如果不是rs.eof，那么rs.movefirst解释

Question

我正在看这教程在教官所做的记录集上

dim db as dao.database
dim rs as dao.recordset
set db =Opendatabase('DSN NAME')
set rs = db.openrecordset('tablename',dbpenDynaset,dbseechanges)
if not rs.eof then rs.movefirst
do while not rs.eof()
debug.print(rs('column1'))
rs.movenext
end
loop

我不明白这行的必要性。

if not rs.eof then rs.movefirst

Answer 1

在这一具体情况下，这条线确实根本不需要。

在新创建的记录集上，光标从第一条记录开始，如果没有，则从EOF开始。把它移到第一个记录根本不需要，因为这是开始的位置。

然而，它可能是模板代码。在创建可在任何记录集上操作的可重用函数时，通常包括此行，以确保记录集从第一条记录开始。例如，如果对窗体执行Set rs = Me.RecordsetClone，则记录集可能不在第一条记录上。