以文本方式查看主题

-  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)

--  作者:chk
--  发布时间: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
--  
请上传实例说明
--  作者:chk
--  发布时间:2022/7/7 17:06:00
--  
您好!
     这几列需要保留一位小数,怎么改代码?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试项目1.rar


图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2022/7/7 17:16:00
--  
生成统计表后,设置列,参考:http://www.foxtable.com/webhelp/topics/2046.htm