我正在使用Access迭代表,查找相关信息并将其汇总到主表中。
它加载两个记录集,开始迭代通过rsImport(Local< 1000行表),对于每个rsImport行,它查看是否是与rsRecords中的UniqueRef匹配的行,然后它将进行更新或添加如果它不存在。
F8逐步完成它在rsRecords.findfirst时实际暂停的完整代码。如果我删除了DateofAction部分,它会加速,所以这与日期有关。
有什么想法吗?
我用:
Dim rsImport As DAO.Recordset, rsRecords As DAO.Recordset
Set rsImport = CurrentDb().OpenRecordset("SELECT * from tblFeedbackImport", dbOpenDynaset)
rsImport.MoveLast
rsImport.MoveFirst
Set rsRecords = CurrentDb().OpenRecordset("SELECT * from dbo_tblFeedbackRecords", dbOpenDynaset, dbSeeChanges)
rsRecords.MoveLast
rsRecords.MoveFirst
Do While rsImport.EOF = False
rsRecords.FindFirst "UniqueRef='" & Trim(rsImport!UniqueRef) & "' AND DateofAction=#" & Format(rsImport!DateofAction, "m-d-yy") & "#"
rsImport.MoveNext
Loop
我有一个基于两列(UNiqueRef和DateOfAction)的PrimaryIndex(Clustered)。