Dim jb As New SQLJoinTableBuilder("利润表附表","部门损益总账")
jb.C
jb.AddTable("部门损益总账","部门名称","部门档案","部门名称",JoinModeEnum.inner) '添加统计表
jb.AddTable("部门损益总账","科目编号","科目档案","科目编码",JoinModeEnum.inner) '添加统计表
jb.AddCols("{部门档案}.所属单位", "部门类型", "所属日期", "上级部门", "一级科目","借方发生")
jb.build
Dim dt1 As DataTable = DataTables("部门档案")
Dim dt2 As DataTable = DataTables("部门损益总账")
Dim dt3 As DataTable = DataTables("利润表附表")
Dim dt4 As DataTable = DataTables("科目档案")
Dim kms As List(Of String) = dt3.GetValues("一级科目")
Dim min As Date = dt2.Compute("min(所属日期)")
Dim max As Date = dt2.Compute("max(所属日期)")
For Each dr As DataRow In dt1.Select("")
Dim sd As Date = min
Do While Format(sd, "yyyyMM") <= Format(max, "yyyyMM")
For Each km As String In kms
Dim ndr As DataRow = dt3.AddNew
ndr("一级科目") = km
ndr("所属单位") = dr("所属单位")
ndr("部门类型") = dr("部门类型")
ndr("上级部门") = dr("上级部门")
ndr("所属日期") = sd
Next
sd = sd.AddMonths(1)
Loop
Next
Dim b As New CrossTableBuilder("利润表附表",jb.BuildSQL,"CWBBGL")
b.HGroups.AddDef("所属单位")
b.HGroups.AddDef("部门类型")
b.HGroups.AddDef("上级部门","部门")
b.HGroups.AddDef("所属日期",DateGroupEnum.year,"年")
b.HGroups.AddDef("所属日期",DateGroupEnum.month,"月")
b.VGroups.AddDef("一级科目")
b.Totals.AddDef("借方发生","本月")
b.Totals.AddDef("借方发生","累计",True)
b.Decimals = 2
b.Build '生成统计表
加好友 
发短信
Post By：2016/3/11 11:45:00 [显示全部帖子]
此主题相关图片如下：图二.png
