主题：第一行的期末值 作为第二行的期初值，以此类推

我知道没问题，但我现在想在那个代码的基础上向实现 另一种功能

问题追加：

老师，是这样的

27楼代码可以实现上一行期末额自动跳转到下一行的期初额

我在论坛学习了，可以使上一行的期末额自动跳转到下一行的期初额，但是最近领导又让加一个条件，就是这个跳转是根据不同账户来进行的，跳转只在相同用户间进行，我看了帮助里面的流水账设计，但是里面只是可以根据相同产品来计算，不能自动跳转，而我设计的能自动跳转，但不能根据相同账户来跳转，求大神帮忙！

下面是流水账的设计方法 Select Case e.DataCol.Name     Case "产品","入库","出库"         Dim drs As List(of DataRow)         Dim Filter As String         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)             Dim Val2 As Double = e.DataTable.Compute("Sum(出库)",Filter)             dr("库存") = Val1 - Val2         Next         If e.DataCol.Name = "产品" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then             Filter = "[_SortKey] > " & e.DataRow("_SortKey") & " And [产品] = '" & e.OldValue & "'"             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)                 Dim Val2 As Double = e.DataTable.Compute("Sum(出库)",Filter)                 dr("库存") = Val1 - Val2             Next         End If End Select 但是这个相同产品的库存不能自动跳转至相同产品下一行入库栏，这个该怎么实现吶 我想实现的就是让某一行库存自动跳转到下一个相同产品的入库

嗯嗯，太好了，非常感谢！