- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]再次求教关于结转问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104640)
-- 发布时间：2017/8/2 13:16:00
-- [求助]再次求教关于结转问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:关于结转.table |
请高手帮忙写下表事件代码！！！
-- 发布时间：2017/8/2 13:52:00
--
手动输入的是 年、月、本月增加、本月减少，上年结转？统计的是本年累计增加、累计减少、本年结余？
-- 发布时间：2017/8/2 14:05:00
--
上年结转在1月份是直接获得上年12月的结余数据（如果上一年没填写过可允许手填），其他月分直接使用1月份的上年结转数据（不可手填）
-- 发布时间：2017/8/2 14:25:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:关于结转.table |
-- 发布时间：2017/8/2 14:32:00
--
谢谢，我试下
-- 发布时间：2017/8/2 14:54:00
--
未能实现累计（增加和减少）的自动填入
-- 发布时间：2017/8/2 15:28:00
--
也就是说当前行的”本年累计增加“=上一行（月）的”本年累计增加“+当前行的”本月增加“
-- 发布时间：2017/8/2 16:30:00
--
也就是说当前行的”本年累计增加“=上一行（月）的”本年累计增加“+当前行的”本月增加“
参考流水账的设计
http://www.foxtable.com/webhelp/scr/1572.htm
Select Case e.DataCol.name
Case "年", "月", "上年结转","本月增加","本月减少"
If e.DataRow.IsNull("年") Then
e.DataRow("本月结余") = Nothing
Else
If e.DataRow("月") = "1" Then
Dim fdr = e.DataTable.find("年 = \'" & e.DataRow("年") - 1 & "\' and 月 = \'12\'")
If fdr IsNot Nothing Then
e.DataRow("上年结转") = fdr("本月结余")
End If
Else
Dim fdr = e.DataTable.find("年 = \'" & e.DataRow("年") & "\' and 月 = \'1\'")
If fdr IsNot Nothing Then
e.DataRow("上年结转") = fdr("上年结转")
End If
End If
Dim sum1 As Double = e.DataTable.Compute("sum(本月增加)", "年 = \'" & e.DataRow("年") & "\'")
Dim sum2 As Double = e.DataTable.Compute("sum(本月减少)", "年 = \'" & e.DataRow("年") & "\'")
e.DataRow("本年累计增加") = sum1
e.DataRow("本年累计减少") = sum2
e.DataRow("本月结余") = sum1 + e.DataRow("上年结转") - sum2
End If
End Select