分页加载与流水账 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 分页加载与流水账

共有9398人关注过本帖树形打印复制链接主题：分页加载与流水账

大红袍

小大 61楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/21 22:05:00 [只看该作者]

呃，可以放在表的afterLoad事件

seal51

小大 62楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2015/7/21 22:22:00 [只看该作者]

老师谢谢，现在好了

再问一个问题：

你给我的例子中

With DataTables("例子一")
.LoadOver = "_Identify" '清除加载条件
.LoadFilter = "" '设置分页加载依据列
End With

应该更改为

With DataTables("例子一")
.LoadOver = "日期" '清除加载条件
.LoadFilter = "" '设置分页加载依据列
End With

对吗？

大红袍

小大 63楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/21 22:24:00 [只看该作者]

不行，日期不能做分页依据啊。

seal51

小大 64楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2015/7/21 22:26:00 [只看该作者]

那么我不分页，是不是就不需要这句了

大红袍

小大 65楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/21 22:27:00 [只看该作者]

是的 LoadOver 不用指定

seal51

小大 66楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2015/8/9 16:25:00 [只看该作者]

大红袍老师，关于流水账，我做了一个窗口来代替表，你看看加载树做的对不对呢？现在有个问题就是2013年起始余额没有和2012年的余额一起计算， 2014年的正常，你看看是怎么回事，附例子！

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20150809162002.png

[此贴子已经被作者于2015/8/9 17:32:10编辑过]

大红袍

小大 67楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/9 16:38:00 [只看该作者]

Select Case e.DataCol.Name
    Case "收入","支出"
        Dim dr As DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[日期] < #" & e.DataRow("日期") & "#", "日期 Desc") '找出上一行
        If dr Is Nothing Then '如果没有找到上一行,说明本行就是第一行
            Dim jc As Double '计算之前的结存
            jc = DataTables("zmtable").SQLCompute("iif(Sum(收入) is null, 0, Sum(收入)) - iif(Sum(支出) is null, 0, Sum(支出))","日期 < #" & e.DataRow("日期") & "#")
            e.DataRow("余额") = e.DataRow("收入") - e.DataRow("支出") + jc
            dr = e.DataRow
        End If
        drs = e.DataTable.Select("[日期] >= #" & dr("日期") & "#", "[日期]")
        For i As Integer = 1 To drs.Count - 1 '重算余下行的余额
            drs(i)("余额") = drs(i-1)("余额") + drs(i)("收入") - drs(i)("支出")
        Next
End Select