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

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 但是这个相同产品的库存不能自动跳转至相同产品下一行入库栏，这个该怎么实现吶 我想实现的就是让某一行库存自动跳转到下一个相同产品的入库

上传例子

你现在的设计就是正确的，根据本行的入库、出库和同产品上一行的库存，计算得出本行的库存，所有流水账都是这样设计的。

 

如果你到一定要这么做，参考：

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目264.table

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

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

还有就是，当更改“出库”数据时，同一产品的库存 变化到下一行的入库值不会随之改变，该怎么解决？