类似：假设表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")
加好友 
发短信
Post By：2020/2/9 22:13:00 [显示全部帖子]
此主题相关图片如下：1.png
