下面代码执行速度很慢有没有好的方法实现这个要求？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

根据库存表的期初数和某段期间的进货销售要实现新的库存数下列代码执行速度很慢有没有好的办法？

Dim dt As DataTable = DataTables("区间进销存_Table1")

For Each dr As DataRow In dt.DataRows

Dim filter2 As String

' filter2="产品名称 = '" & dr("产品名称") & "' and 颜色 = '" & dr("颜色") & "' and 仓库 = '" & dr("仓库") & "' and 日期 >= #" & e.Form.Controls("startdate").value & "# " & " And 日期 <= #" & e.Form.Controls("enddate").value & "#"

filter2="产品名称 = '" & dr("产品名称") & "' and 仓库 = '" & dr("仓库") & "' and 日期 < #" & e.Form.Controls("startdate").value & "#"

Dim s1 As Double = DataTables("进货单明细").sqlCompute("sum(数量)", filter2)

Dim s2 As Double = DataTables("销售单明细").sqlCompute("sum(数量)", filter2)

Dim s3 As Double = DataTables("其他出库单明细").sqlCompute("sum(数量)", filter2)

Dim s4 As Double = DataTables("其他入库单明细").sqlCompute("sum(数量)", filter2)

dr("期初_数量") += s1+s4 - s2 - s3

Dim s5 As Double = DataTables("进货单明细").sqlCompute("sum(金额)", filter2)

Dim s6 As Double = DataTables("销售单明细").sqlCompute("sum(金额)", filter2)

Dim s7 As Double = DataTables("其他出库单明细").sqlCompute("sum(金额)", filter2)

Dim s8 As Double = DataTables("其他入库单明细").sqlCompute("sum(金额)", filter2)

dr("期初_金额") += s5+s6-s7-s8

主题：下面代码执行速度很慢 有没有好的方法实现这个要求？

主题：下面代码执行速度很慢有没有好的方法实现这个要求？