示例文件：
 

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

点击浏览该文件:分页流水账.table

设计步骤：
 
1、删除原来的余额列，然后在项目事件Initialize中设置代码:

DataTables("例子一").DataCols.Add("余额",Gettype(Double))  \'添加余额列,用于动态显示余额
 
技巧：

A、由于余额是每次加载数据后动态计算得出的，所以这里应该采用表达式列，而不是数据列；这样不仅可以节省存储空间，更重要的是，不会因为重算余额导致系统误认为此行被修改了，需要保存。
B、当然这个表达式列和我们平时的表达式列不同，因为没有给它设置表达式；没有设置表达式的表达式列，可以用代码向该列赋值，希望大家能记住这一点。
C、也许有人会问，为什么要在Initialize事件，而不是AfterOpenProject事件添加列？这是因为在Initialize事件添加的列，可以保存列宽和列位置。

2、将DataColChanged事件设为:
 
Select Case e.DataCol.Name
    Case "收入","支出"
        Dim dr As DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & e.DataRow("_SortKey"), "[_SortKey] Desc") \'找出上一行
        If dr Is Nothing Then \'如果没有找到上一行,说明本行就是第一行
            Dim jc As Double \'计算之前的结存
            jc =  DataTables("例子一").SQLCompute("Sum(收入) - Sum(支出)","[_SortKey] < " & e.DataRow("_SortKey"))
            e.DataRow("余额") = e.DataRow("收入") - e.DataRow("支出") + jc
            dr = e.DataRow
        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey"), "[_SortKey]")
        For i As Integer = 1 To drs.Count - 1 \'重算余下行的余额，注意i是从1开始遍历的。
            drs(i)("余额") = drs(i-1)("余额") + drs(i)("收入") - drs(i)("支出")
        Next
End Select
 
上述代码的原理：

A、如果修改的是第一行，那么就先用SQLCompute方法，从后台计算出此行之前的结存，第一行的收入减去支出，再加上之前的结存，就是第一行的余额。
B、如果不是第一行数据，那么该行的收入减去支出，再加上上一行的结存，就是此行的余额。
 
可以看出，由于有了SQLCompute等后台数据处理行数，设计这么一个分页加载的流水账，变得轻松起来了。
 
3、表事件AfterMoveRow的代码保持不变：
 
Dim Key As Decimal
Dim Index As Integer
Dim dc As DataCol
Index = Math.Min(e.OldIndex, e.NewIndex)
Key = e.Table.Rows(Index)("_SortKey")
dc = e.Table.DataTable.DataCols("入库")
dc.RaiseDataColChanged("[_SortKey] >= " & Key)
 
4、表事件DataRowDeleting的代码同样保持不变：
 
e.DataRow("收入") = 0
e.DataRow("支出") = 0
 
5、最后AfterOpenproject事件代码设置为：
 
With DataTables("例子一")
    .LoadOver = "_SortKey" \'清除加载条件
    .LoadFilter = "" \'设置分页加载依据列
End With
Forms("窗口1").Open() \'打开设计好的分页加载窗口

提示: 由于我们的流水账是根据_SortKey的顺序计算的，所以分页加载的语句列必须设置为_SortKey列。