主题：[求助]分页流水账是否可按项目统计余额

特别慢可能是表的AfterLoad事件的代码有问题，改成这样就好了：

If e.DataTable.DataRows.count > 0 Then
    Dim cps As List(of String) = e.DataTable.GetValues("产品")
    For Each cp As String In cps
        Dim dr As DataRow = e.DataTable.Find("产品 = '" & cp &"'","[_SortKey]")
        e.DataTable.DataCols("支出").RaiseDataColChanged(dr)
    Next
End If

其实流水账只需重置每个产品的第一行即可，不需要充值所有行。

我之前做了一个：

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

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

你要插入的话，只能是依据_sortKey了，只要不经常在同一位置插入，一般不会有问题