分组统计条件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 分组统计条件

共有5063人关注过本帖树形打印复制链接主题：分组统计条件

seal51

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

加好友

发短信

等级：八尾狐帖子：1837 积分：12990 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2022/5/28 17:48:00 [只看该作者]

Sele cted Index Changed

Dim g As New GroupTableBuilder("统计表1", DataTables("accountmx"))

g.Groups.AddDef("日期", DateGroupEnum.Year, "年")

g.Groups.AddDef("日期", "月")

g.Groups.AddDef("账目名称")

g.Totals.AddDef("收入")

g.Totals.AddDef("支出")

g.SubTotal = True

g.FromServer = True

g.Filter = "[日期] >= '1/1/" & e.sender.value & "' And [日期] <= '12/31/" & e.sender.value & "'"

g.Build()

Tables ("统计账目_统计表1" ). DataSource = g.BuildDataSource

Enter

If DataTables.Contains("统计表1") Then

If DataTables("统计表1").DataCols.Contains("年") Then

e.sender.combolist = DataTables("统计表1").GetComboListString("年")

End If

有点蓝

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

加好友

发短信

等级：超级版主帖子：107730 积分：547983 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/5/29 20:01:00 [只看该作者]

生成统计表后，给统计表添加一个临时的表达式列：http://www.foxtable.com/webhelp/topics/1428.htm，通过表达式把年和月合并为“2022-01”这种字符，然后通过临时列出处理

seal51

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

加好友

发短信

等级：八尾狐帖子：1837 积分：12990 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2022/6/3 10:59:00 [只看该作者]

系统里的统计菜单如何放在我的菜单里

此主题相关图片如下：snipaste_2022-06-03_10-57-44-11111.png

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2022/6/3 11:10:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/1080.htm

seal51

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

加好友

发短信

等级：八尾狐帖子：1837 积分：12990 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2022/6/3 12:38:00 [只看该作者]

12楼没看明白

seal51

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

加好友

发短信

等级：八尾狐帖子：1837 积分：12990 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2022/6/3 13:20:00 [只看该作者]

此主题相关图片如下：snipaste_2022-06-03_13-18-57-444.png

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2022/6/3 15:57:00 [只看该作者]

必须分成两列。

你可以在得到统计表之后，用代码增加一列，并合成年月：

DataTables("统计表1").DataCols.Add("年月", GetType(String))

For Each dr As DataRow In DataTables("统计表1").DataRows

dr("年月") = dr("年") & dr("月")

[此贴子已经被作者于2022/6/3 16:02:01编辑过]

seal51

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

加好友

发短信

等级：八尾狐帖子：1837 积分：12990 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2022/6/4 11:37:00 [只看该作者]

这段代码加到哪里去呢

seal51

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

加好友

发短信

等级：八尾狐帖子：1837 积分：12990 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2022/6/4 11:53:00 [只看该作者]

Dim g As New GroupTableBuilder("统计表1", DataTables("accountmx"))

g.Groups.AddDef("日期", DateGroupEnum.Year, "年")

g.Groups.AddDef("日期", "月")

g.Groups.AddDef("来往银行")

g.Totals.AddDef("收入")

g.Totals.AddDef("支出")

g.SubTotal = True

g.FromServer = True

g.Build()

Tables ("统计账目_统计表1" ). DataSource = g.BuildDataSource

DataTables("统计表1").DataCols.Add("年月", GetType(String))

For Each dr As DataRow In DataTables("统计表1").DataRows

dr("年月") = dr("年") & dr("月")

seal51

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

加好友

发短信

等级：八尾狐帖子：1837 积分：12990 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2022/6/4 12:05:00 [只看该作者]

明白了

下一主题 >> << 上一主题

总数 22 上一页 1 2 3 下一页

主题：分组统计条件