- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请大神指教 计算优化 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109786)
-- 发布时间：2017/11/19 20:16:00
-- 请大神指教 计算优化
算总数 几十秒钟， 算每一个物料 在一个时间点 之前的数据 怎么要那么长时间？ 请大神指教
此主题相关图片如下：2.jpg
-- 发布时间：2017/11/19 20:20:00
--
附件是模型
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试.rar |
-- 发布时间：2017/11/19 21:01:00
--
参考代码
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 21:23:00
--
22
-- 发布时间：2017/11/19 21:28:00
--
12
-- 发布时间：2017/11/19 21:33:00
--
11
-- 发布时间：2017/11/19 22:27:00
--
领悟了 老哥的意思， 谢谢~~
-- 发布时间：2017/11/19 22:55:00
--
回复7楼，你select的时候，要排序
For Each dr2 As DataRow In DataTables("sum").Select(" 物料编码= \'" & dr("物料编码") & "\'", "日期时间")
-- 发布时间：2017/11/20 0:30:00
--
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 & "秒") \'计算并显示执行代码所花费的秒数