附加数据列

关于附加数据列，请参考：附加数据列

本节介绍如何通过代码附加数据列。

InlineMRPBuilder和LayersMRPBuilder都有一个Additions属性，用于附加数据列：

• Additions
  
  用于附加数据列，语法：
  
  Add(DataTable, MaterialCol, QuantityCol，NewName)
  
  DataTable:      附加列所在数据表
  MaterialCol：   物料列名称 ，也就是关联列，DataTable参数指定的数据表通过此列和BOM表的物料列建立关联。
  AttachCol：     附加列名称
  NewName：       出现在MRP中的新列名

示例

1、打开CaseStudy目录下的示例文件：扩展MRP统计.Table

2、本次统计使用的BOM表为"物料清单D"，这是一个内联式的BOM表 ，这个表通过物料编号建立BOM关系：

另外一个"物料库表"，用于输入物料编号和对应的名称：

3、如果希望物料编号列和物料名称列都出现在最终的MRP统计结果中，只需增加一行代码：

Dim mrp As New InlineMRPBuilder("统计表1")
'设置BOM表
mrp.BOM.DataTable = DataTables("物料清单D")
mrp.BOM.ParentCol = "上级编号"
mrp.BOM.MaterialCol = "物料编号"
mrp.BOM.QuantityCol = "用量"
'设置库存表
mrp.Stock.DataTable = DataTables("库存")
mrp.Stock.MaterialCol = "物料"
mrp.Stock.QuantityCol= "库存数量"
mrp.Stock.MinimumCol = "安全库存"
'设置生产计划
mrp.Plan.Add("P01",10)
mrp.Plan.Add("P02",8)
'附加数据列
mrp.Additions.Add(DataTables("物料库"), "物料编号", "物料名称", "物料名称")
'生成统计结果
mrp.Build()
MainTable = Tables("统计表1")

得到的统计结果为：