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

 看懂流水账

 

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

 

DataRowAdding事件

 

Dim fdr As DataRow = e.DataTable.Find("", "_Sortkey desc")

e.datarow("第一列") = fdr("第二列")

 上传实例说明具体问题。

19楼代码没问题。不会做上传具体上例。

参考

 

Dim idx as integer = Tables("表A").FindRow("[_SortKey] > " & e.DataRow("_SortKey"))

If idx >= 0 Then Tables("表A").Select(idx, 0)

 查找 _Sortkey 列大于当前行 _Sortkey 列的行。如果找到，就赋值。

Dim dr As DataRow = e.DataTable.Find("[_SortKey] > " & e.DataRow("_SortKey") & " and D = '" & e.DataRow("D") & "'")

看27楼，代码没问题