快速批量刷新流水账

上一节介绍了通过充值列刷新流水账的方法，如果产品种类多，例如几前甚至上万个产品，速度还是会很慢。

如果你要更快的速度，可以自己单独做一个刷新按钮，代码参考：

Dim drs As List(of DataRow) = DataTables("例子二").Select("", "产品,日期")
Dim prev As String  = ""
For i As Integer = 0 To drs.count -1
    Dim cur As String = drs(i)("产品")
    If cur = prev Then
        drs(i)("库存") = drs(i - 1)("库存") + drs(i)("入库") - drs(i)("出库")
    Else
        drs(i)("库存") = drs(i)("入库") - drs(i)("出库")
        prev = cur
    End If
Next

上述代码的效率非常高，就是上万种产品，也能秒级完成。