求教公式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求教公式

共有22695人关注过本帖树形打印复制链接主题：求教公式

czy

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

等级：超级版主帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2008/10/5 19:38:00 [显示全部帖子]

老六那个流水帐代码没出来前，我是这么写的。

If e.DataRow("日期") Is Nothing Then

Return

End if

Dim sum As Integer = dataTables("收支总表").Compute("Sum(收入)", "_Identify <= " & e.datarow("_identify"))

Dim sum1 As Integer = dataTables("收支总表").Compute("Sum(支出)", "_Identify <= " & e.datarow("_identify"))

e.DataRow(e.DataCol.Name) = sum -sum1

[此贴子已经被作者于2008-10-5 19:40:16编辑过]

czy

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

等级：超级版主帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2008/10/6 16:29:00 [显示全部帖子]

以下是引用kylin在2008-10-6 9:16:00的发言：

这个无法实现流水账,因为缺少循环控制,无法自动更新本笔之后的结余.
这个_identify对外部表好象无效.
个人以为老六的流水帐为经典之作,呵呵!

如果是外部表，何不把自动增量主键名称改成“_identify”？那样加载数据后还减少了一列。
另外有些流水帐不一定有日期列的，如果没有日期列，用_identify做条件应该是个不错的选择。

czy

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

等级：超级版主帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2008/10/6 18:24:00 [显示全部帖子]

以下是引用kylin在2008-10-5 19:12:00的发言：

下载信息 [文件大小：312.0 KB 下载次数：9]
点击浏览该文件:收支账-kylin.table

传统意义上的流水帐是以每一条数据做为一个结余，但老六的这段代码存在一个缺憾，就是如果一天中如果有多笔数据出入的话就只能以一天来进行结余计算，所以个人认为还需再加个条件才能满足要求。

主题：求教公式