此类流水账的设计方法要复杂一些，DataColChanged事件代码为：

上述代码的3到12行很好理解，当我们修改产品、入库、出库三列内容后，即从此行开始重算同产品所有行的余额。
假定我们修改的是产品，例如将产品由PD01改为PD02，3到12行会从此行开始重算所有产品为PD02的行的余额；显然此行之后的产品为PD01的行的余额，也是应该重算的，于是就有了13到22行的代码，注意第14行在合成条件的时候，用e.OldValue取得原产品名称。

AfterMoveRow事件代码变化不大，条件表达式中加入产品比较即可：

Dim Key As Decimal
Dim Index As Integer
Dim Filter As String
Dim r As Row
Index = Math.Min(e.OldIndex, e.NewIndex)
Key = e.Table.Rows(Index)("_SortKey")
r = e.Table.Rows(e.NewIndex)
Filter = "[_SortKey] >= " & Key & " And [产品] = \'" & r("产品") & "\'"
e.Table.DataTable.DataCols("入库").RaiseDataColChanged(Filter)

而DataRowDeleting事件代码则完全相同：

e.DataRow("入库") = 0
e.DataRow("出库") = 0

这段代码如果我只有两种产品，pd01和pd02，出库时候都和原来一样，但是pd02入库的时候，是把pd01的库存数转到了pd02，相应的pd01也减少了库存，需要计算出pd02的实时库存，和pd01、pd02的总库存，请问这个怎么修改？

如果用sql server数据库，

 Filter = "[_SortKey] >= " & e.DataRow("_SortKey") & " And [产品] = \'" & e.DataRow("产品") & "\'"
        drs = e.DataTable.Select(Filter)
        For Each dr As DataRow In drs
            Filter = "[_SortKey] <= " & dr("_SortKey") & " And [产品] = \'" & dr("产品") & "\'"
            Dim Val1 As Double = e.DataTable.Compute("Sum(入库)",Filter)

代码中还使用("_SortKey") 这个，行不行，适用sql吗？

如果是用“分页加载与流水账”这个案例中的代码，我是阿里云sqlserver数据库，多人同时操作增删改查使用，利用这个"_SortKey"会不会有问题？