主题：已运算的数据，重置列时，怎样才会不重新再运算？

1、看看这个

http://www.foxtable.com/webhelp/scr/2136.htm

2、重置列的时候，建议自己做一个按钮，设置重置列的代码

http://www.foxtable.com/webhelp/scr/1587.htm

你可以做一个按钮重新计算，红色你可以修改条件

Dim filter As String = "日期 >= #2018-03-01#"
Dim drs As New List(of DataRow)
With DataTables("入库成本表")
    For Each nm As String In .GetValues("品号", filter) '找出每个产品的第一行数据, 添加到集合drs中
        drs.Add(.Find("品号 = '" & nm & "' and " & filter, "[_SortKey]"))
    Next
    For Each r As DataRow In drs
        .DataCols("入库数量").RaiseDataColChanged(r) '重置每个产品的第一行
    Next
End With

下面红色的是条件，你从什么时候开始算，就修改红色代码，灵活变通。

假如大于2018-03-01的数据只有100行，那计算应该很快吧？执行下面代码，如果还有问题，做个大数据量的例子发上来测试。

Dim filter As String = "日期 >= #2018-03-01#"
Dim drss As New List(of DataRow)
With DataTables("入库成本表")
    For Each nm As String In .GetValues("品号", filter) '找出每个产品的第一行数据, 添加到集合drs中
        drss.Add(.Find("品号 = '" & nm & "' and " & filter, "[_SortKey]"))
    Next
    systemready = False
    For Each r As DataRow In drss
        Dim dr As DataRow
        Dim mr As DataRow = r
        Dim drs As List(of DataRow)
        dr = .Find("[_SortKey] < " & mr("_SortKey") & " And [品号] = '" & mr("品号") & "'", "[_SortKey] Desc")
        If dr Is Nothing Then
            mr("结存数量") = mr("期初数量") + mr("入库数量") - mr("出库数量")
            mr("结存金额") = mr("期初成本") + mr("入库金额") - mr("出库金额")
            dr = mr
        End If
        drs = .Select("[_SortKey] >= " & dr("_SortKey") & " And [品号] = '" & dr("品号") & "'", "[_SortKey]")
        For i As Integer = 1 To drs.Count - 1
            drs(i)("结存数量") = drs(i-1)("结存数量") + drs(i)("期初数量") + drs(i)("入库数量") - drs(i)("出库数量")
            drs(i)("结存金额") = drs(i-1)("结存金额")+drs(i)("期初成本")+drs(i)("入库金额")-drs(i)("出库金额")
        Next
       
    Next
    systemready = True
End With

比如，从当前行开始计算，就这样写

Dim filter As String = "_Identify >= " & Tables("入库成本表").current("_Identify")