If rq1.Value = Nothing Then
rq1.Value = #5/1/2017#
End If
If rq2.Value = Nothing Then
rq2.Value = _dt工序合并表.SQLCompute("MAX(日期)")
End If
Dim filter As String
filter = "a.起始时间 >= '" & rq1.Value & "' And a.起始时间 < '" & rq2.Value.AddDays(1) & "' And (a.工序 = '原料采购入库' Or a.工序 = '来料加工入库' Or a.工序 = '并卷转入' Or a.工序 = '盘盈入库')"
Tables(e.Form.Name & "_Table1").Fill("s elect '' As 顺序号,a.母卷号,a.牌号,a.工序,a.往来公司,a.起始时间 As 入库时间,a.厚度,a.宽度,a.重量 As 原料重量,(s elect Sum(重量) from {工序合并表} b where b.库存标记 = 1 And a.母卷号 = b.母卷号 And b.起始时间 >= '" & rq1.Value & "' And b.工序 <> '废品入库' And b.工序 <> '盘亏出库' And b.工序 <> '引带入库 ') as 成材重量 from {工序合并表} as a where " & filter ,"ShcsErpSql",True)
代码执行的结果没有问题,但是,起始日期不录,几秒就能出结果,录2021-4-1号,也是几秒出结果,录2021-4-3,就要20秒出结果,随便输入一些日期,有的日期执行效率非常高,有的非常慢,这是何解啊
一般情况下,我如果不录日期,代码自动使用的起始日期是#5/1/2017#,结束日期是今天,按理来说,这个时间跨度应该比起始日期是2021-4-10大,查询效率慢才对,可结果完全不是这么回事,问题应该就出在红字部分,因为我把红字去掉,查询结果的速度全很快。
实在想不明白,请老师解惑下,谢谢!