[求助]统计表的疑问，请大侠帮助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]统计表的疑问，请大侠帮助

共有14356人关注过本帖树形打印复制链接主题：[求助]统计表的疑问，请大侠帮助

sunbrain

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：383 积分：2439 威望：0 精华：0 注册：2011/12/3 22:19:00

[求助]统计表的疑问，请大侠帮助 发帖心情

Post By：2012/10/25 1:02:00 [显示全部帖子]

对统计表琢磨了很久，最近才有点眉目，发现需要做成什么样子，先做好，再依照葫芦画瓢那样会好些。

现在我有个问题：

Dim b As New CrossTableBuilder("统计表3",DataTables("产品表"))
b.HGroups.AddDef("大类别") '添加小类别列用于水平分组
b.HGroups.AddDef("小类别") '添加小类别列用于水平分组
b.VGroups.AddDef("进货日期") '添加进货列用于垂直分组
b.Totals.AddDef("进价小计") '添加进价小计列用于统计
b.Totals.AddDef("售价小计") '添加售价列用于统计
b.Totals.AddDef("数量") '添加数量列用于统计
b.Build '生成统计表
MainTable = Tables("统计表3") '打开生成的统计表生成的统计表是这样的

图片点击可在新窗口打开查看此主题相关图片如下：1.jpg

这个图中，进货日期列，全部变成了数字（似乎是月份，我是按照日期统计的），不知道怎么更正，这个是问题一。

我希望大类别那里能进行合并，这个怎么更改呢？谢谢

我希望做成的结果是这样的

图片点击可在新窗口打开查看此主题相关图片如下：22

sunbrain

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：383 积分：2439 威望：0 精华：0 注册：2011/12/3 22:19:00

Post By：2012/10/25 1:03:00 [显示全部帖子]

这个是我做的源文件，希望大家帮助一下我，谢谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:统计表问题.rar

sunbrain

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：383 积分：2439 威望：0 精华：0 注册：2011/12/3 22:19:00

Post By：2012/10/25 10:54:00 [显示全部帖子]

以下是引用muhua在2012-10-25 9:00:00的发言：

下载信息 [文件大小：296.0 KB 下载次数：1]
点击浏览该文件:统计表问题.table

交叉汇总，代码在项目事件的 AfterOpenProject 中。

muhua老师:

您做的这个确实实现了按进货日期进行统计的结果。但是仍有两个问题没有解决，表头需要重新进行处理；另外大类别也需要进行合并处理；

还是非常感谢您的指导。

sunbrain

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：383 积分：2439 威望：0 精华：0 注册：2011/12/3 22:19:00

Post By：2012/10/25 10:57:00 [显示全部帖子]

以下是引用lin_hailun在2012-10-25 9:17:00的发言：
只能够在生产报表以后再对表头进行处理了，楼主，代码如下。

Dim g As New CrossTableBuilder("统计表", DataTables("产品表"))
g.HGroups.AddDef("大类别")
g.HGroups.AddDef("小类别")
g.VGroups.AddDef("进货日期", DateGroupEnum.Year, "{0}年")
g.VGroups.AddDef("进货日期", "{0}月")
g.Totals.AddDef("进价小计", "进价小计")
g.Totals.AddDef("售价小计", "售价小计")
g.Totals.AddDef("数量", "数量")
g.Build()

With DataTables("统计表")
    For Each dc As DataCol In .DataCols
        If dc.Caption Like "####年_*" Then
            dc.Caption = dc.Caption.SubString(0, 5) & dc.Caption.SubString(6)
        End If
    Next
    .BuildHeader()
End With

MainTable = Tables("统计表")

lin_hailun老师：您的方法思路很好，但是有一个问题是按照进货日期，而不是按照进货日期的月份进行统计的。

另外如何把大类别也进行合并呢？

非常感谢

sunbrain

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：383 积分：2439 威望：0 精华：0 注册：2011/12/3 22:19:00

Post By：2012/10/25 11:17:00 [显示全部帖子]

综合两位老师的结果，我改了muhua的代码，对统计结果进行表头处理：

With DataTables("统计表2")
    For Each dc As DataCol In .DataCols
        If dc.Caption Like "####年_*" Then
            dc.Caption = dc.Caption.SubString(0, 5) & dc.Caption.SubString(6)
        End If
    Next
    .BuildHeader()
End With

MainTable = Tables("统计表2")

图片点击可在新窗口打开查看此主题相关图片如下：4.jpg

对

If dc.Caption Like "####年_*" Then
dc.Caption = dc.Caption.SubString(0, 5) & dc.Caption.SubString(6)
End If
代码实在是不清楚功能，所以没有办法把日期进行合并（类似2012年_10月_10日这样的三层表头），还请大家帮助解释，谢谢

[此贴子已经被作者于2012-10-25 11:17:50编辑过]