使用查询访问报告?
Access reporting with queries?
我尝试使用多个查询来构建报告。我的做法是使用临时 table。在构建它时,我注意到报告 运行 需要相当长的时间,因为我为每条记录使用了 2 个标准。
所以基本上我所做的是用 2 个值
填充温度 table
公司ID |单价
现在我要做什么 DlookUp 每个 CompanyID 的起始库存,这是我的代码...
rs2.movefirst
with rs2
While Not .EOF
lngCompanyID = rs2("CompanyID")
lngUnitPrice = rs2("UnitPrice")
'GETTING BEGINNING INVENTORY VALUES
lngBegCount = Nz(DLookup("BegCount", "qryBegInv", "UnitPrice = " & lngUnitPrice & " AND CompanyID =" & CompanyID & ""), 0)
.Edit
rs2("BegInvCount") = lngBegCount
.Update
rs2.movenext
wend
End with
我看到的问题是我正在查找的 qryBEGINV 需要大约 10-15 秒才能加载,所以由于我有超过 30 条记录,运行 报告需要几分钟.有没有办法让我更有效率?可能 DLOOKUP 值一次,然后过滤而不是查找它们并过滤每条记录?
从另一个填充了 qryBegInv 结果的临时 table 开始,这样您就不会在每次循环迭代时都重新创建该结果集。
我尝试使用多个查询来构建报告。我的做法是使用临时 table。在构建它时,我注意到报告 运行 需要相当长的时间,因为我为每条记录使用了 2 个标准。
所以基本上我所做的是用 2 个值
填充温度 table公司ID |单价
现在我要做什么 DlookUp 每个 CompanyID 的起始库存,这是我的代码...
rs2.movefirst
with rs2
While Not .EOF
lngCompanyID = rs2("CompanyID")
lngUnitPrice = rs2("UnitPrice")
'GETTING BEGINNING INVENTORY VALUES
lngBegCount = Nz(DLookup("BegCount", "qryBegInv", "UnitPrice = " & lngUnitPrice & " AND CompanyID =" & CompanyID & ""), 0)
.Edit
rs2("BegInvCount") = lngBegCount
.Update
rs2.movenext
wend
End with
我看到的问题是我正在查找的 qryBEGINV 需要大约 10-15 秒才能加载,所以由于我有超过 30 条记录,运行 报告需要几分钟.有没有办法让我更有效率?可能 DLOOKUP 值一次,然后过滤而不是查找它们并过滤每条记录?
从另一个填充了 qryBegInv 结果的临时 table 开始,这样您就不会在每次循环迭代时都重新创建该结果集。