主题：怎么处理重置列时累加的问题

Select Case e.DataCol.name
    Case "生产预算"
        'DataTables("材料预算").replacefor("需求预算", Nothing)
        If e.DataRow.Isnull("生产预算") = False Then
            Dim drs As List (of DataRow) = DataTables("物料清单").Select("产品编号= '" & e.DataRow("物料编号") & "'")
            If drs IsNot Nothing Then
                For Each dr As DataRow  In drs
                    Dim dr1 As DataRow =DataTables("材料预算").find("物料编号= '" & dr("物料编号") & "'")
                    dr1("需求预算")+= dr("使用数量")*e.DataRow("生产预算")
                Next
            End If
        End If
End Select

做生产预算时，会自动调用物料清单，然后每种产品的生产预算数量与相应的物料清单的积累计加在一起，算的时候，重置一次就会累加一次，怎么处理，写了红色的代码，然后就永远是0了，不知道该怎么处理。