主题：就是如何写 符合型号 批次 两个条件的累加 的代码

 

If e.DataCol.Name = "地板型号" Then

        e.DataRow("本批次入库总件数") = DataTables("成品入库明细表").Compute("Sum(计算件数)","[地板型号] = '" & e.NewValue & "'")
    End If
    If e.DataCol.Name = "计算件数" Then
        Dim pr As DataRow
        pr = DataTables("大板管理").Find("地板型号= '" & e.DataRow("地板型号") & "'")
        If pr IsNot Nothing Then
            pr("计算件数")= pr("计算件数") + e.NewValue - e.OldValue
        End If
    End If



上面一个条件地板型号判定可以了，如何再加个条件  “批次”判断       如何加代码  

           就是如何写 ： 查找出"成品入库明细表中" （ 型号,批次）符合"大板管理"表中（型号,批次）这两个条件的明细表的计算件数的累加 给大板管理中的本批次入库总件数 列