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

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

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

cyrollin

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

加好友

发短信

等级：四尾狐帖子：821 积分：5760 威望：0 精华：0 注册：2015/2/3 22:19:00

分组统计问题 发帖心情

Post By：2018/4/3 17:18:00 [只看该作者]

Dim Filter As String

With e.Form.Controls("DateTimePicker1")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "日期 >= #" & .Value & "#"

vars("起始日期") = .Value

End If

End With

With e.Form.Controls("DateTimePicker2")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "日期 <= #" & .Value & "#"

vars("终止日期") = .Value

End If

End With

If Filter > "" Then

Dim b As New GroupTableBuilder("form1_table1",DataTables("表A"))

b.filter = filter

b.Groups.AddDef("编号") '根据产品分组

b.Totals.AddDef("数量") '对数量进行统计

b.Build '生成统计表

MainTable = Tables("form1_table1") '打开生成的统计表

End If

'创建了一个form1窗口,在里面创建了一个table1表

错误提示:

1. 找不到要删除的表 form1_table1

2. form1_table1已经存在.

[此贴子已经被作者于2018/4/3 17:22:31编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/3 17:25:00 [只看该作者]

Dim b As New GroupTableBuilder("test",DataTables("表A"))
b.filter = filter
b.Groups.AddDef("编号") '根据产品分组
b.Totals.AddDef("数量") '对数量进行统计
Forms("form1").controls("Table1").Table.Datasource = b.BuildDataSource

cyrollin

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

加好友

发短信

等级：四尾狐帖子：821 积分：5760 威望：0 精华：0 注册：2015/2/3 22:19:00

Post By：2018/4/3 17:36:00 [只看该作者]

好的,可以了, 谢谢小甜甜.

还有,可以把编号对应的产品名称列出来吗? 怎么改写代码?

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/3 17:49:00 [只看该作者]

以下是引用cyrollin在2018/4/3 17:36:00的发言：

还有,可以把编号对应的产品名称列出来吗? 怎么改写代码?

你表A有【产品名称】列吗？如果没有，就添加一列。然后使用表达式或者代码引用父表的【产品名称】过来。

cyrollin

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

加好友

发短信

等级：四尾狐帖子：821 积分：5760 威望：0 精华：0 注册：2015/2/3 22:19:00

Post By：2018/4/3 17:55:00 [只看该作者]

有的, 怎么引用?

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/3 18:04:00 [只看该作者]

Dim b As New GroupTableBuilder("test",DataTables("表A"))
b.filter = filter
b.Groups.AddDef("编号") '根据产品分组

b.Groups.AddDef("产品名称") '根据产品分组
b.Totals.AddDef("数量") '对数量进行统计
Forms("form1").controls("Table1").Table.Datasource = b.BuildDataSource

cyrollin

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

加好友

发短信

等级：四尾狐帖子：821 积分：5760 威望：0 精华：0 注册：2015/2/3 22:19:00

Post By：2018/4/5 14:51:00 [只看该作者]

我在做excel模板的时候, 用了这个代码, 但生成后不能实现合计数量:

[#form1_table1,sum(数量)]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/6 14:21:00 [只看该作者]

如果直接统计，参考

http://www.foxtable.com/webhelp/scr/1507.htm

累计，参考

http://www.foxtable.com/webhelp/scr/1496.htm

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

主题：分组统计问题