- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- MRP表，小数位四舍五入 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178515)
-- 发布时间：2022/7/7 16:47:00
-- MRP表，小数位四舍五入
您好！
设置的MRP运算表，有几列需要保留1位小数，然后四舍五入。代码最后标红的几列，设置后点击运算报错？
Dim mrp As New InlineMRPBuilder("MRP统计表")
\'设置BOM表mrp.BOM.DataTable = DataTables("物料清单")
mrp.BOM.ParentCol = "上级"
mrp.BOM.MaterialCol = "布料编号"
mrp.BOM.QuantityCol = "用量"
\'设置库存表
mrp.Stock.DataTable = DataTables("布料仓库库存")
mrp.Stock.MaterialCol = "布料编号"
mrp.Stock.QuantityCol= "实际库存数"
\'增加扩展数据表
mrp.Extensions.Add(DataTables("正在生产数量汇总"),"布料编号","正在生产数量", "计划_生产在线")
\'设置生产计划
For Each dr As DataRow In DataTables("计划汇总").DataRows
mrp.Plan.Add(dr("产品编号"), dr("mrp运算数"))
Next
\'附加数据列
mrp.Additions.Add(DataTables("物料清单"), "布料编号", "布料类型", "布料类型")
mrp.Additions.Add(DataTables("物料清单"), "布料编号", "克度", "克度")
mrp.Additions.Add(DataTables("物料清单"), "布料编号", "平方", "平方")
mrp.Additions.Add(DataTables("物料清单"), "布料编号", "颜色加色号", "颜色加色号")
mrp.Additions.Add(DataTables("物料清单"), "布料编号", "布料等级", "布料等级")
mrp.Additions.Add(DataTables("物料清单"), "布料编号", "布料副宽", "布料副宽")
mrp.Additions.Add(DataTables("物料清单"), "布料编号", "覆膜后克重", "覆膜后克重")
\'生成统计结果
mrp.Build()
MainTable = Tables("MRP统计表")
If DataTables("MRP统计表").DataCols.Contains("计划_需要生产") Then
DataTables("MRP统计表").DataCols.Delete("计划_需要生产")
End If
With DataTables("MRP统计表")
.DataCols("计划_需要采购").Caption = "计划_需要生产数量"
.BuildHeader()
End With
Output.Show(Round2("计划_需求数量", 1)) \'显示3.4
Output.Show(Round2("计划_来自库存", 1)) \'显示3.4
Output.Show(Round2("计划_生产在线", 1)) \'显示3.4
Output.Show(Round2("计划_需要生产数量", 1)) \'显示3.4
Output.Show(Round2("剩余库存", 1)) \'显示3.4
[此贴子已经被作者于2022/7/7 16:53:25编辑过]
-- 发布时间：2022/7/7 16:55:00
--
请上传实例说明
-- 发布时间：2022/7/7 17:06:00
--
您好！
-- 发布时间：2022/7/7 17:16:00
--
生成统计表后，设置列，参考：http://www.foxtable.com/webhelp/topics/2046.htm