主题：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