这么简单的后台统计代码，为什么出错？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这么简单的后台统计代码，为什么出错？

共有22989人关注过本帖树形打印复制链接主题：这么简单的后台统计代码，为什么出错？

yangming

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

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/9/12 19:36:00 [显示全部帖子]

可能不是你的错,要问问贺老师了,或者你第一行或是第一列是空值?

[此贴子已经被作者于2009-9-12 19:36:29编辑过]

yangming

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

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/9/13 9:15:00 [显示全部帖子]

你13楼贴子中说的分组统计的问题,我测试了没问题,你可以试试我的这个文件

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试分组后台统计.table

[此贴子已经被作者于2009-9-13 9:24:21编辑过]

yangming

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

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/9/13 9:33:00 [显示全部帖子]

以下是引用reachtone在2009-9-13 9:17:00的发言：

我忘说了，13楼统计的是查询表。你可以先加载一个查询表，然后对这个查询表进行后台统计看看。。

我试了一下,查询表只要用这个代码,一样可以对后台进行统计

Dim g As New GroupTableBuilder("统计表2", DataTables("订单2"))
g.Groups.AddDef("客户")
g.Totals.AddDef("数量")

g.Build()
MainTable = Tables("统计表2")

[此贴子已经被作者于2009-9-13 9:38:10编辑过]

yangming

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

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/9/13 9:40:00 [显示全部帖子]

我用这个代码测试了查旬表,和用下面代码对非查询表分组统计得出的结果是一样的
Dim g As New GroupTableBuilder("统计表1", DataTables("订单"))
g.Groups.AddDef("客户")
g.Totals.AddDef("数量")
g.FromServer = True
g.Build()
MainTable = Tables("统计表1")

yangming

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

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/9/13 9:44:00 [显示全部帖子]

以下是引用reachtone在2009-9-13 9:41:00的发言：

估计只有老六能解决了。一堆的问题啊，真是急人。。。

看17和18楼

yangming

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

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/9/13 10:12:00 [显示全部帖子]

交叉统计的这段代码在查询表好用
Dim b As New SQLCrossTableBuilder("统计表2","订单2")
b.C
b.HGroups.AddDef("客户") '添加客户列用于水平分组
b.VGroups.AddDef("产品","产品_{0}") '添加产品列用于垂直分组,并设置了Pattern参数
b.Totals.AddDef("数量") '添加数量列用于统计
b.Exprs.Adddef("金额","[数量] * [单价] * (1 - [折扣])") '
b.Build() '生成统计表
Maintable = Tables("统计表2") '打开生成的统计表

[此贴子已经被作者于2009-9-13 10:12:25编辑过]