主题：关于截止统计

截止统计不就是统计到目前为止的数据么，怎么会分年？

我测试也没问题，代码不应该有问题的。

 

数据问题吧，其余两个表的数据有可能有重复的值。

 

具体做个出错的例子上来。

部门名称、科目编码，不能有重复值。

 做个例子上来测试。

位置调换一下

 

Dim b As New SQLCrossTableBuilder("损益总体比率","部门损益总账")  '定义变量利润表附表,并从部门损益总账统计数据
b.AddTable("部门损益总账","部门名称","部门档案","部门名称") '添加统计表
b.AddTable("部门损益总账","科目编号","科目档案","科目编码") '添加统计表
b.HGroups.AddDef("所属单位")
b.HGroups.AddDef("部门类型")
b.HGroups.AddDef("上级部门")
b.HGroups.AddDef("所属日期", DateGroupEnum.Year, "年")
b.HGroups.AddDef("所属日期", "月")
b.VGroups.AddDef("一级科目")
b.Totals.AddDef("借方发生", "本月")
b.Totals.AddDef("借方发生", "累计", True)
b.Decimals = 0 '小数点取0位
b.Filter = "零售终端 = True"
b.Build '生成统计表

Dim b As New SQLCrossTableBuilder("损益总体比率","部门损益总账")  '定义变量利润表附表,并从部门损益总账统计数据
b.AddTable("部门损益总账","部门名称","部门档案","部门名称") '添加统计表
b.AddTable("部门损益总账","科目编号","科目档案","科目编码") '添加统计表
b.HGroups.AddDef("所属日期", DateGroupEnum.Year, "年")
b.HGroups.AddDef("所属单位")
b.HGroups.AddDef("部门类型")
b.HGroups.AddDef("上级部门")
b.HGroups.AddDef("所属日期", "月")
b.VGroups.AddDef("一级科目")
b.Totals.AddDef("借方发生", "本月")
b.Totals.AddDef("借方发生", "累计", True)
b.Decimals = 0 '小数点取0位
b.Filter = "零售终端 = True"
b.Build '生成统计表

应该是bug，懒得测试，自己计算截止值吧。

 

Dim b As New SQLCrossTableBuilder("损益总体比率","部门损益总账")  '定义变量利润表附表,并从部门损益总账统计数据
b.AddTable("部门损益总账","部门名称","部门档案","部门名称") '添加统计表
b.AddTable("部门损益总账","科目编号","科目档案","科目编码") '添加统计表
b.HGroups.AddDef("所属日期", DateGroupEnum.Year, "年")
b.HGroups.AddDef("所属单位")
b.HGroups.AddDef("部门类型")
b.HGroups.AddDef("上级部门")
b.HGroups.AddDef("所属日期", "月")
b.VGroups.AddDef("一级科目")
b.Totals.AddDef("借方发生", "本月")
b.Totals.AddDef("借方发生", "累计", True)
b.Decimals = 0 '小数点取0位
b.Filter = "(零售终端 = True and 所属单位 = '温州分公司')"
b.Build '生成统计表

Dim t As Table = Tables("损益总体比率")
Dim drs As List(Of DataRow) = t.DataTable.Select("", "上级部门,年")
For Each c As Col In t.Cols
    If c.Caption Like "*_累计" Then
        Dim pdr As DataRow = Nothing
        Dim by As String = c.name.Replace("_up", "")
        For Each dr As DataRow In drs
            If pdr Is Nothing OrElse dr("上级部门") <> pdr("上级部门") OrElse dr("年") <> pdr("年") Then
                dr(c.name) = dr(by)
            Else
                dr(c.name) = dr(by) + pdr(by)
            End If
            pdr = dr
        Next
    End If
Next

不是，你不是要按照 部门、年 来累计么？当循环到另一个部门的时候，就要清零

1、看懂代码再改成你需要的。

 

2、具体什么问题，做例子发上来。

改一改

 

            If pdr Is Nothing OrElse dr("所属单位") <> pdr("所属单位") OrElse dr("年") <> pdr("年")Then
                dr(c.name) = dr(by)
            Else
                dr(c.name) = dr(by) + pdr(c.name)
            End If
            pdr = dr