DataTables.load("金属到货登记|计划员发料|备料计划汇总表|采购计划编制")
Dim Arys As List(Of String())
Arys = DataTables("备料计划汇总表").GetValues("材料编号|物资名称|型号规格|材质|计量单位") \'列名用符号|分割
\'注意循环变量是字符型数组,所以类型是String(),而不是String
For Each Ary As String() In Arys
    Dim dr1 As DataRow = DataTables("材料库存查询").AddNew()
    dr1("材料编号") = Ary(0)
    dr1("物资名称") = Ary(1)
    dr1("型号规格") = Ary(2)
    dr1("材质") = Ary(3)
    dr1("计量单位") = Ary(4)
Next
Forms("材料综合查询").Open()

请问：

我按上述语句，《材料库存查询》表为临时表，按上述“材料编号”筛选出不重复的材料，但如何在该查询表中统计出“材料编号”对应的“需用总量”（在《备料计划汇总表》中）；“发料总量”（在《在计划员发料》中）；“到货总量”（在《金属到货登记》中）