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

dr1("需求预算")+= dr("使用数量")*e.DataRow("生产预算")

改为：

dr1("需求预算") = dr("使用数量")*e.DataRow("生产预算")

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

类似的代码已经给你写过了啊，搜索全部的数据，重新计算一次。