主题：[求助]分组统计

 不能显示为真的日期值。

 你可以按 年、月、日 来分组汇总，这样日期就是唯一的了。

 按日分组以后，无法显示出具体的日期的。

 要么按照 月、日 分组，要么生成以后特殊处理一下。

 如果要特殊处理，请上传例子。

按钮代码如下，红色为修改的。

'筛选指定起止日期且"供货渠道"不为空的数据行
'With Tables("hc")
    '.Filter = "[rq] >= #" & Vars("SD") & "# And [rq] <= #" & Vars("ED") & "# and [ghqd] Is Not Null"
'End With

'定义一个分组统计表生成器(分组汇总)
Dim g As New GroupTableBuilder("gyshjdhz", DataTables("hc"))
g.Caption = "供应商阶段汇总"
g.Groups.AddDef("gysh") '按供应商分组
g.Groups.AddDef("rq", DateGroupEnum.Day, "", "日") '供应商相同的情况下,再按日分组
g.Totals.AddDef("rkje")
g.Totals.AddDef("shje")
g.Totals.AddDef("zhfje")
g.Decimals = 2 '保留2位小数

'筛选指定起止日期且"供货渠道"不为空的数据行
g.Filter = "[rq] >= #" & Vars("SD") & "# And [rq] <= #" & Vars("ED") & "# And [ghqd] Is Not Null"
g.Build() '生成统计表

'生成以后,对日期进行加工处理
Tables("gyshjdhz").DataTable.DataCols.Add("rq2", Gettype(String), 255, "", "附加列")
For Each r As Row In Tables("gyshjdhz").Rows
    Dim d As Date = new Date(Vars("SD").Year, Vars("SD").Month, r("rq"))
    Dim str As String = ""
    Do While d <= vars("ED")
        If DataTables("hc").Find("rq = #" & d & "# and gysh = '" & r("gysh") & "'") IsNot Nothing Then
            str &= d & ","
        End If
        d = d.AddMonths(1)
    Loop
    r("rq2") = str.TrimEnd(",")
Next

MainTable = Tables("gyshjdhz") '打开生成的统计表
'MainTable.Select(0,0,MainTable.Rows.Count-1,MainTable.Cols.Count-1) '选定整张表(或在Excel模板文件中细节区的第一行<ENd>列加上<ALL>)

'根据现有的模板文件生成一个工作薄
Dim tmp As String = ProjectPath & "Attachments\供应商阶段汇总模板.xls"
Dim rpt As String = ProjectPath & "reports\供应商阶段汇总输出.xls"
Dim Book As New XLS.Book(tmp)
Book.Build() '生成细节区
Book.Save(rpt) '另存为Excel报表文件

'执行外部程序(打开工作簿)
Dim Proc As New Process
Proc.File = rpt
Proc.Start()

 回复11楼，你不是希望把所有月份有采购的日期都拿出来吗？

 那你希望要怎样的效果？

那你是不是想按照 年，月，日 分组去汇总数据？而不是你现在这样的按照 日 汇总？

你直接说最后你想要的结果是怎样的吧。

比如 输入什么日期，最后得到的数据的日期应该是怎样的。

按日汇总的日期值？加入汇总的数据，对应的是多个月的日，怎么处理？

那原先的按日统计，根本没有满足你的需求啊。

你需要按照 月 和 日 分组统计才对的。或者按照 年 月 日 分组统计。

你直接修改统计的代码就行了。不知我这样说，你明白了没有？

不是这个意思，我的意思是，你只需要在你原来的代码上改一下分组便可，不需要加入额外的代码

类似这样改

Dim g As New GroupTableBuilder("gyshjdhz", DataTables("hc"))
g.Caption = "供应商阶段汇总"

g.Groups.AddDef("rq", DateGroupEnum.Year, "年")
g.Groups.AddDef("rq", "月")
g.Groups.AddDef("rq", DateGroupEnum.Day, "日")
g.Groups.AddDef("gysh") '按供应商分组

g.Totals.AddDef("rkje")
g.Totals.AddDef("shje")
g.Totals.AddDef("zhfje")
g.Decimals = 2 '保留2位小数

'筛选指定起止日期且"供货渠道"不为空的数据行
g.Filter = "[rq] >= #" & Vars("SD") & "# And [rq] <= #" & Vars("ED") & "# And [ghqd] Is Not Null"
g.Build() '生成统计表