- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 根据基础表生成图表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145842)
-- 发布时间：2020/2/9 10:39:00
-- 根据基础表生成图表
项目文件中有个数据表：收款明细表（主要字段：债权人、借款日期、借款金额、借款年限、年利率等）
业务规则：按年（满一年）结息，最后一年本金和当年的利息一起支付；
我想实现：根据上述基础表生成一张按月的资金需求统计表，并生成相应的图表（纵轴：年度，横轴：月份）
代码如何写？请指教，谢谢！！
-- 发布时间：2020/2/9 11:32:00
--
还有一个要说明的：到今天为止已到期的不要统计进去，未到期但已满整年的利息都已支付了，统计时这部分也不要统计进去
谢谢！！
-- 发布时间：2020/2/9 22:13:00
--
统计功能可以看【开发指南】-【统计与查询】这章内容。
图表功能可以看【开发指南】-【生成图表】这章内容。
具体问题请上传实例说明
-- 发布时间：2020/2/10 16:39:00
--
分两步走:1.把收款明细表按业务规则进行计算生成统计表(这是重点);2.用生成的统计表绑定到图表.
-- 发布时间：2020/2/10 20:21:00
--
项目文件中有个数据表：收款明细表（主要字段：债权人、借款日期、借款金额、借款年限、年利率等） 业务规则：按年（满一年）结息，最后一年本金和当年的利息一起支付； 我想实现：根据上述基础表生成一张按月的资金需求统计表，并生成相应的图表（纵轴：年度，横轴：月份） 代码如何写？请指教，谢谢！！
| ||||
-- 发布时间：2020/2/10 20:42:00
--
【按月的资金需求统计表】实际效果是怎么样的？这种统计表？http://www.foxtable.com/webhelp/topics/0678.htm
此主题相关图片如下：1.png
此主题相关图片如下：2.png
-- 发布时间：2020/2/10 22:54:00
--
不是这个效果，要求及思路见我上传的EXCEL表。
简单说就是有表中的这么多借款，根据借款本金、利率、年限，及支付要求（按年结息，到期本金和利息一并支付）预测各月所需资金，谢谢！
-- 发布时间：2020/2/10 22:55:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:形成统计表的要求.xlsx |
不是这个效果，要求及思路见我上传的EXCEL表。
简单说就是有表中的这么多借款，根据借款本金、利率、年限，及支付要求（按年结息，到期本金和利息一并支付）预测各月所需资金，谢谢！
-- 发布时间：2020/2/13 15:51:00
--
简单说就是有表中的这么多借款，根据借款本金、利率、年限，及支付要求（按年结息，到期本金和利息一并支付）预测各月所需资金，谢谢！ |
-- 发布时间：2020/2/13 17:13:00
--
类似：假设表A就是最后合并数据的表
Dim dt As DataTable = DataTables("表A")
dt.StopRedraw
dt.DataRows.Clear
Dim d As Date = Date.Today
Dim drs As List(of DataRow) = DataTables("收款明细表").SQLSelect("本息是否兑付 = false and DateAdd(\'m\',借款年限*12,借款日期) > #" & d &"#")
Dim nr As DataRow
For Each dr As DataRow In drs
Dim sd As Date = new Date(d.Year,d.Month,dr("借款日期").day)
If sd < d Then sd = sd.AddMonths(1)
Dim ed As Date = dr("借款日期").AddYears(dr("借款年限"))
Do While sd <= ed
nr = dt.AddNew
nr("借款人") = dr("债权人")
nr("计息日期") = sd
nr("利息") = dr("收取金额") * dr("利率") / 12
sd = sd.AddMonths(1)
Loop
Next
dt.ResumeRedraw
Dim g As New CrossTableBuilder("统计表1", DataTables("表A"))
g.HGroups.AddDef("计息日期", DateGroupEnum.Year, "年")
g.VGroups.AddDef("计息日期", "{0}月")
g.Totals.AddDef("利息", "利息")
g.Build()
MainTable = Tables("统计表1")