请大神指教计算优化 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

算总数几十秒钟，算每一个物料在一个时间点之前的数据怎么要那么长时间？请大神指教

此主题相关图片如下：2.jpg

[此贴子已经被作者于2017/11/19 21:46:40编辑过]

附件是模型

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试.rar

参考代码

MainTable = Tables("统计")

Dim wlbm As String = "17475000011232"

e.Form.Controls("Label1").Text = "正在处理数据..."
Application.DoEvents()

Dim drs = DataTables("sum").Select("物料编码='" & wlbm & "' and 日期时间 <= #" & Date.Today.AddDays(3) & "# and 日期时间 > #" & Date.Today & "# ", "日期时间")
Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
p.Maximum = drs.Count '设置最大值
p.Minimum = 0 '设置最小值
p.Value = 0 '设置当前值

DataTables("统计").ResumeRedraw
DataTables("统计").StopRedraw
Dim st As Date = Date.Now '将开始时间保存在变量st中
Dim sum = DataTables("sum").compute("sum(需求数量)", "物料编码='" & wlbm & "' and 日期时间 <= #" & Date.Today & "#")
For Each dr As DataRow In drs
    Dim dr1 As DataRow = DataTables("统计").AddNew()

    dr1("物料编码") = dr("物料编码")
    dr1("日期时间") = dr("日期时间")
    Dim temp As Double = sum
    For Each dr2 As DataRow In drs
        If dr2("日期时间") <= dr1("日期时间") Then
            temp += dr2("需求数量")
        Else
            Exit For
        End If
    Next
    dr1("在此之前的需求数量") = temp

    p.Value += 1 '当前值为已经完成的行数
Next

DataTables("统计").ResumeRedraw

If DataTables("统计").HasChanges Then
'DataTables("统计").save
End If

e.Form.Controls("Label1").Text = " 更新完毕."

MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒") '计算并显示执行代码所花费的秒数

[此贴子已经被作者于2017/11/19 22:14:30编辑过]

[此贴子已经被作者于2017/11/19 21:32:18编辑过]

[此贴子已经被作者于2017/11/19 22:14:16编辑过]

领悟了老哥的意思，谢谢~~

Dim drs = DataTables("sum").Select(" 日期时间 <= #" & Date.Today.AddDays(3) & "# and 日期时间 > #" & Date.Today & "# ")

For Each dr As DataRow In drs '统计未来两天的数据

Dim dr1 As DataRow = DataTables("统计").AddNew()

dr1("物料编码") = dr("物料编码")

dr1("日期时间") = dr("日期时间")

Dim temp As Single = 0

For Each dr2 As DataRow In DataTables("sum").Select(" 物料编码= '" & dr("物料编码") & "' ")

If dr2("日期时间") <= dr1("日期时间") Then

temp += dr2("需求数量")

Else

Exit For

End If

dr1("在此之前的需求数量") = temp

回复7楼，你select的时候，要排序

For Each dr2 As DataRow In DataTables("sum").Select(" 物料编码= '" & dr("物料编码") & "'", "日期时间")

MainTable = Tables("统计")

e.Form.Controls("Label1").Text = "正在处理数据..."
Application.DoEvents()

Dim drs = DataTables("sum").Select("日期时间 <= #" & Date.Today.AddDays(1) & "# and 日期时间 > #" & Date.Today & "# ", "物料编码,日期时间")
Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
p.Maximum = drs.Count '设置最大值
p.Minimum = 0 '设置最小值
p.Value = 0 '设置当前值

DataTables("统计").ResumeRedraw
DataTables("统计").StopRedraw
Dim st As Date = Date.Now '将开始时间保存在变量st中
Dim pdr As DataRow = Nothing
Dim sum As Double = 0

For Each dr As DataRow In drs
    Dim dr1 As DataRow = DataTables("统计").AddNew()

    dr1("物料编码") = dr("物料编码")
    dr1("日期时间") = dr("日期时间")

    If pdr Is Nothing OrElse dr1("物料编码") <> pdr("物料编码") Then
        sum = 0
        For Each dr2 As DataRow In DataTables("sum").Select(" 物料编码= '" & dr("物料编码") & "' ","日期时间")
            If dr2("日期时间") <= dr1("日期时间") Then
                sum += dr2("需求数量")
            Else
                Exit For
            End If
        Next
    Else
        sum = pdr("在此之前的需求数量") + dr("需求数量")
    End If
    dr1("在此之前的需求数量") = sum
    pdr = dr1
    p.Value += 1 '当前值为已经完成的行数
    e.Form.Controls("Label1").Text = "..." & p.Value
    Application.DoEvents()
Next

DataTables("统计").ResumeRedraw

If DataTables("统计").HasChanges Then
'DataTables("统计").save
End If

e.Form.Controls("Label1").Text = " 更新完毕."

MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒") '计算并显示执行代码所花费的秒数

主题：请大神指教 计算优化

主题：请大神指教计算优化