- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于水流帐问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=149261)
-- 发布时间：2020/4/27 16:07:00
-- 关于水流帐问题
更多的时候，流水账是区分产品的，例如下图的库存表：
此类流水账的设计方法要复杂一些，DataColChanged事件代码为：
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | Select Case e.DataCol.Name Case "产品","入库","出库" Dim drs As List(of DataRow) Dim Filter As String Filter = "[_SortKey] >= " & e.DataRow("_SortKey") & " And [产品] = \'" & e.DataRow("产品") & "\'" drs = e.DataTable.Select(Filter) For Each dr As DataRow In drs Filter = "[_SortKey] <= " & dr("_SortKey") & " And [产品] = \'" & dr("产品") & "\'" Dim Val1 As Double = e.DataTable.Compute("Sum(入库)",Filter) Dim Val2 As Double = e.DataTable.Compute("Sum(出库)",Filter) dr("库存") = Val1 - Val2 Next If e.DataCol.Name = "产品" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then Filter = "[_SortKey] > " & e.DataRow("_SortKey") & " And [产品] = \'" & e.OldValue & "\'" drs = e.DataTable.Select(Filter) For Each dr As DataRow In drs Filter = "[_SortKey] <= " & dr("_SortKey") & " And [产品] = \'" & dr("产品") & "\'" Dim Val1 As Double = e.DataTable.Compute("Sum(入库)",Filter) Dim Val2 As Double = e.DataTable.Compute("Sum(出库)",Filter) dr("库存") = Val1 - Val2 Next End If End Select |
上述代码的3到12行很好理解，当我们修改产品、入库、出库三列内容后，即从此行开始重算同产品所有行的余额。
假定我们修改的是产品，例如将产品由PD01改为PD02，3到12行会从此行开始重算所有产品为PD02的行的余额；显然此行之后的产品为PD01的行的余额，也是应该重算的，于是就有了13到22行的代码，注意第14行在合成条件的时候，用e.OldValue取得原产品名称。
AfterMoveRow事件代码变化不大，条件表达式中加入产品比较即可：
Dim Key As Decimal
Dim Index As Integer
Dim Filter As String
Dim r As Row
Index = Math.Min(e.OldIndex, e.NewIndex)
Key = e.Table.Rows(Index)("_SortKey")
r = e.Table.Rows(e.NewIndex)
Filter = "[_SortKey] >= " & Key & " And [产品] = \'" & r("产品") & "\'"
e.Table.DataTable.DataCols("入库").RaiseDataColChanged(Filter)
而DataRowDeleting事件代码则完全相同：
e.DataRow("入库") = 0
e.DataRow("出库") = 0
如何用流水帐，实现如图功能：
1.表首行是“期初数”，固定，而且不参加计算；
2，每个月月未或每月25日，自动进行月未结算，本月合计，和本年合计；
3，第二个月，第一行是本月的“期初数”（上个月，第一个月的本月合计数）；
4，本月合计和本年合计的行，都用红色框框起来。如何代码实现？请老师，指导，谢谢！
此主题相关图片如下：流水帐.jpg
-- 发布时间：2020/4/27 16:47:00
--
这个其实和流水账没有什么关系。月结的时候，直接做个分组统计，按本月的时间段分组统计即可，统计结果就是本月的月末合计，然后把这个月末合计作为下月期初使用即可
-- 发布时间：2020/4/27 18:34:00
--
老师，我没表达清楚，请看如下图，要实现也下图
此主题相关图片如下：流水帐1.jpg
-- 发布时间：2020/4/27 18:37:00
--
1.首行的公式？
-- 发布时间：2020/4/27 20:25:00
--
做个例子发上来测试
-- 发布时间：2020/4/28 9:47:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:日记帐.foxdb |
-- 发布时间：2020/4/28 14:11:00
--
建议使用历史表存储上个月的数据，这样主表只处理本月的数据，本月数据的流水账处理都不用改代码，并且数据少了效率也高很多。另外过往月份的数据也不应该再做改动，如果要改应该另外做冲销，不然的话假如要改几年前的一个数据，会导致后面几年的流水账数据外部改一遍，这是不合理的，也会导致这几年的账目全部乱掉。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:日记帐.zip |
-- 发布时间：2020/4/28 16:36:00
--
老师，测试一下，没达到功能需求，还是存在手动，没有自动
-- 发布时间：2020/4/28 16:55:00
--
您，建议使用历史表存储上个月的数据，如果能实现自动，计算，实现期初相关数据和本月合计，这个方法好，有高效。但问题须处理以下问题：
-- 发布时间：2020/4/28 16:59:00
--
难点在：