表【出门统计】 字段： 车牌，统计时间，通过次数
表【出门清单】字段： 车牌，出门时间
统计每部车牌在统计时间前后10分钟范围内的出门次数。
用以下代码较慢：
For Each drt As DataRow In DataTables("出门统计").DataRows
Dim CP As String = drt("车牌")
Dim DA1 As Date = drt("统计时间")
Dim sp As New TimeSpan(0, 10, 0)
Dim dt1 As Date = dA1 + sp
Dim dt2 As Date = dA1 - sp
Dim A As Integer = DataTables("出门清单").Compute("COUNT(车牌)", "出门时间 <= '#" & DT1 & "#' AND 出门时间 >= '#" & DT2 & "#' AND 车牌='" & CP & "'")
drt("通过次数") = A
Next
请教如何用SQL代码效率更高？谢谢！
加好友 
发短信
Post By：2023/8/24 19:02:00 [显示全部帖子]
