主题：[求助]这是什么情况 本周明明有很多记录，结果只出现2条？（案例已上传）

Dim b4 As Double
Dim n As Integer = Date.Today.DayOfWeek
Dim d1 As Date = iif(n=0,Date.today.Adddays(n-6),Date.today.Adddays(1-n))
Dim d2 As Date = iif(n=0,Date.today.Adddays(n),Date.today.Adddays(7-n))
b4 = Tables("现场检查").Compute("count(审核时间)","审核时间 >= #" & d1 & "# And 审核时间 <= #" & d2 & "#")
output.show(d1)
output.show(d2)
output.show(b4)

结果为：

2012-01-09
2012-01-15
2

而表里记录为：