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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请大神指教计算优化

共有1812人关注过本帖树形打印复制链接主题：请大神指教计算优化

dwq547467075

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：148 积分：2075 威望：0 精华：0 注册：2013/3/3 12:34:00

请大神指教计算优化 发帖心情

Post By：2017/11/19 20:16:00 [显示全部帖子]

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

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

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

dwq547467075

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：148 积分：2075 威望：0 精华：0 注册：2013/3/3 12:34:00

Post By：2017/11/19 20:20:00 [显示全部帖子]

附件是模型

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

dwq547467075

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：148 积分：2075 威望：0 精华：0 注册：2013/3/3 12:34:00

Post By：2017/11/19 21:23:00 [显示全部帖子]

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

dwq547467075

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：148 积分：2075 威望：0 精华：0 注册：2013/3/3 12:34:00

Post By：2017/11/19 21:28:00 [显示全部帖子]

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

dwq547467075

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：148 积分：2075 威望：0 精华：0 注册：2013/3/3 12:34:00

Post By：2017/11/19 21:33:00 [显示全部帖子]

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

dwq547467075

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：148 积分：2075 威望：0 精华：0 注册：2013/3/3 12:34:00

Post By：2017/11/19 22:27:00 [显示全部帖子]

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

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

下一主题 >> << 上一主题

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

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