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

此主题相关图片如下：加工1.png

如图，已知想加工出的最终良品数，如第一行 “最终良品数”是26个，需要找到最后一道工序，（最后一道工序的工程名列有内容，其后工序的工程名列就是空值了），“最终良品数” ÷ 最后一道工序的“良品率” = 最后一道工序的“投入数量”，

之后往前一道工序类推，最终得出第1序的“投入数量”，

请问老师，要达到这样的效果怎么弄呢？谢谢！

狐狸爸爸，您好！我将代码复制到表的Datacolchanged事件里，重置列后，

直接就退出狐表了，不知道什么原因？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:生产管理2016新实验.rar

老师，您好！

我运行代码后，出现以下异常：

.NET Framework 版本：2.0.50727.5485

Foxtable 版本：2016.7.29.1

错误所在事件：表，加工排产，DataColChanged

详细错误信息：

调用的目标发生了异常。

值对于 Int32 太大或太小。不能在第1序_投入数量列中存储 <非数字>。所需类型是 Int32。

值对于 Int32 太大或太小。

关闭窗口后，有些也只是显示最后一道工序的数量，如何倒推，直到第一序，全部工序的投入数量都显示呢？

算数量时，希望的是只要有小数，都进成整数，

比如： 5.2 显示为6

5.8也显示为6

谢谢老师，

运行有点异常

.NET Framework 版本：2.0.50727.5485

Foxtable 版本：2016.7.29.1

错误所在事件：表，加工排产，DataColChanged

详细错误信息：

调用的目标发生了异常。

算术运算导致溢出。

关闭窗口后，到第一序的数量都出来了，而且都对，很快，

请老师帮看看，问题出在哪里了呢？

老师，您好！

If e.DataRow(lg & "_良品率") 》 0 Then

我将》改成<> 或 >都试了试，

还是显示算术运算导致溢出。

老师，是我弄错了，

解决了，谢谢！

老师，还有一个问题：

有两个逻辑列：第1序_夜，第1序_瓶颈

逻辑关系是，

如果第1序_夜列是选中，第1序_瓶颈没有选中的情况下，则： e.DataRow("第1序_标准耗时天") = Math.Ceiling((dr9("段") + (dr9("机") + dr9("装")) * e.DataRow("第1序_投入数量")) / (60 * 8) / 2)

如果第1序_夜列是没选中，第1序_瓶颈选中的情况下，则：e.DataRow("第1序_标准耗时天") = Math.Ceiling((dr9("段") + (dr9("机") + dr9("装")) * e.DataRow("第1序_投入数量")) / (60 * 8)) + 2

如这两列均选中则： e.DataRow("第1序_标准耗时天") = Math.Ceiling((dr9("段") + (dr9("机") + dr9("装")) * e.DataRow("第1序_投入数量")) / (60 * 8) / 2) + 2

如这两列均没选中，则：e.DataRow("第1序_标准耗时天") = Math.Ceiling((dr9("段") + (dr9("机") + dr9("装")) * e.DataRow("第1序_投入数量")) / (60 * 8))

我写了以下代码，不对，请老师帮该一下，谢谢！

Select Case "第1序_夜","第1序_瓶颈"

Case e.DataRow("第1序_夜") = False And e.DataRow("第1序_瓶颈") = False

e.DataRow("第1序_标准耗时天") = Math.Ceiling((dr9("段") + (dr9("机") + dr9("装")) * e.DataRow("第1序_投入数量")) / (60 * 8))

Case e.DataRow("第1序_夜") = False And e.DataRow("第1序_瓶颈") = True

e.DataRow("第1序_标准耗时天") = Math.Ceiling((dr9("段") + (dr9("机") + dr9("装")) * e.DataRow("第1序_投入数量")) / (60 * 8)) + 2

Case e.DataRow("第1序_夜") = True And e.DataRow("第1序_瓶颈") = False

e.DataRow("第1序_标准耗时天") = Math.Ceiling((dr9("段") + (dr9("机") + dr9("装")) * e.DataRow("第1序_投入数量")) / (60 * 8) / 2)

Case e.DataRow("第1序_夜") = True And e.DataRow("第1序_瓶颈") = True

e.DataRow("第1序_标准耗时天") = Math.Ceiling((dr9("段") + (dr9("机") + dr9("装")) * e.DataRow("第1序_投入数量")) / (60 * 8) / 2) + 2

End Select

主题：找工程，倒算数量