Dim dtb As New DataTableBuilder("眉州分货表")

dtb.AddDef("原料名称", Gettype(String), 32)

dtb.AddDef("分货组号", Gettype(Integer), 4)

For Each v As String In DataTables("销售订单").GetUniqueValues("","订货单位简称")

    dtb.AddDef(v, Gettype(String),32)

Next

dtb.Build()

For Each v As String In DataTables("销售订单").GetUniqueValues("","原料名称")

    Dim dr1 As DataRow = DataTables("眉州分货表").AddNew()

    dr1("原料名称") = v

    For Each dr2 As DataRow In DataTables("销售订单").DataRows

        If dr2("原料名称") = v Then

            dr1(dr2("订货单位简称")) = dr2("订单数量带单位")

        End If

    Next

Next

MainTable = Tables("眉州分货表")

哪位高手帮忙完善一下这组代码：

<!--[if !supportLists]-->1，<!--[endif]-->希望将新增加的dtb.AddDef("分货组号", Gettype(Integer), 4)像“原料名称”列一样带入数据。分货组号与原料名称是对应的。

<!--[if !supportLists]-->2，<!--[endif]-->在带入“订单数量带单位”的时候增加一个条件，"总公司" = ‘眉州’。