下面这段代码运行时间有点长能不能帮我优化一下谢谢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下面这段代码运行时间有点长能不能帮我优化一下谢谢

Dim Filter As String = "单据状态='已审核'"

With e.Form.Controls("StartDate")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "日期 >= '" & .Value & "'"

End If

End With

With e.Form.Controls("EndDate")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "日期 <='" & .Value & "'"

End If

End With

Dim drs As List(of DataRow) = DataTables("销售单").SQLSelect(filter)

Dim Sum As Integer

Dim s1 As Double

Dim s2 As Double

Dim s3 As Double

Dim s4 As Double

Dim s As String

Dim khmc As String

Dim khbm As String

For Each dr As DataRow In drs

khbm=dr("客户编码")

s=dr("单据号")

khmc=dr("客户名称")

s1=dr("数量")

s2 = DataTables("销售单明细").SQLCompute("Sum(辅助数量)","单据状态='已审核' and 单据号='" & s & "' and 客户编码='" & khbm & "'")

s3=DataTables("销售单明细").SQLCompute("Sum(辅助数量)","单据状态='已审核' and 单据号='" & s & "'")

If s1<>s2

msgbox(s & khmc )

msgbox(s1)

msgbox(s2)

End If

If s1<>s3

msgbox(s & khmc )

msgbox(s1)

msgbox(s3)

End If

msgbox("ok")

Tables(e.form.Name & "_Table1").fill("selec a.单据号,a.客户编码,a.客户名称,数量 as 列表数量,辅助数量 as 明细数量,金额 as 列表金额,明细金额 from {销售单} where 单据状态='已审核' as a inner join (selec 单据号,客户编码,sum(辅助数量) as 辅助数量,sum(金额) as 明细金额 from {销售单明细} where 单据状态='已审核' group by 单据号,客户编码) as b on a.单据号 = b.单据号 and a.客户编码 = b.客户编码 where a.数量<> b.辅助数量 or a.金额<>b.明细金额","wjhansdata",True)

If Tables(e.form.Name & "_Table1").Current Is Nothing

messagebox.show("列表和明细一致数据准确!","信息提示",MessageBoxButtons.ok)

e.Form.close()

End If

加了红字条件就出错了

Tables(e.form.Name & "_Table1").fill("selec a.客户编码, a.客户名称,a.简码,a.电话,sum(已结) as 已结金额,sum(结帐金额) as 结帐金额 from {客户} as a left join (selec 单位编码, 单位名称,借方金额 as 已结, 0 as 结帐金额 from {资金收付明细单} where 单据状态='已审核' and 摘要<>'预收款' union all Selec 客户编码, 客户名称, 0,金额 from {销售单明细} where 单据状态='已审核' and 结帐状态='已结帐') As b on a.客户编码 = b.单位编码 And a.客户名称 = b.单位名称 where a.已结金额<>a.结帐金额 group by a.客户编码, a.客户名称,a.简码,a.电话 ","wjhansdata",True)

加了个条件出错了不加的话没有错

谢谢为啥跟6楼加条件不一样

多谢

[此贴子已经被作者于2022/9/25 8:46:01编辑过]

主题：下面这段代码 运行时间有点长 能不能帮我优化一下 谢谢

主题：下面这段代码运行时间有点长能不能帮我优化一下谢谢