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

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了，不知道该怎么处理。

 

比如计算一次总数为10000，那么重置一次就是增加10000，第一次是10000，第二次20000，以次类推，可是我想要的结果是无论多少次都是10000

大红袍休息了吗？怎么不见大红袍了

 

4楼回答是错误的，我的代码是循环语句呀，没有+，只能记录最后一次值