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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]请教一个交叉统计的问题

共有3124人关注过本帖树形打印复制链接主题：[求助]请教一个交叉统计的问题

狐说八道

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

加好友

发短信

等级：幼狐帖子：104 积分：1139 威望：0 精华：0 注册：2017/9/13 8:43:00

[求助]请教一个交叉统计的问题 发帖心情

Post By：2017/11/5 22:30:00 [显示全部帖子]

产品名称	需求数量
不锈钢线	100
铜线	200
铁枝	100
铜枝	100
铜片	200
铁片	100
不锈钢片	100
铜棒	100
铁棒	100
不锈钢棒	200
铜线	500

	铜	铁	不锈钢
线	700		100
枝	100	100
片	200	100	100
棒	100	100	200

合计

1100

300

400

各位老师，我有一张表如表一，用交叉统计可以统计出如表二这种样式？或者有什么其他的方法可以做到的？？

请老师指教，先谢谢了

[此贴子已经被作者于2017/11/5 22:31:36编辑过]

狐说八道

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

加好友

发短信

等级：幼狐帖子：104 积分：1139 威望：0 精华：0 注册：2017/9/13 8:43:00

Post By：2017/11/6 8:28:00 [显示全部帖子]

以下是引用y2287958在2017/11/5 23:32:00的发言：

b.HGroups.AddExp("分类", "Right(产品名称,1)")

b.VGroups.AddExp("项目", "left(产品名称,len(产品名称) - 1)")

请问y2287958 老师，我的表都没有 “分类”，“项目” 这两列，怎么用这两列来统计呢？？

狐说八道

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

加好友

发短信

等级：幼狐帖子：104 积分：1139 威望：0 精华：0 注册：2017/9/13 8:43:00

Post By：2017/11/6 8:47:00 [显示全部帖子]

代码运行到 b.VerticalTotal = True 提示“未将对象设置引用到对象实例”

然后我把 b.VerticalTotal = True 这句注释掉

到了 b.Build 依然提示“未将对象设置引用到对象实例”

狐说八道

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

加好友

发短信

等级：幼狐帖子：104 积分：1139 威望：0 精华：0 注册：2017/9/13 8:43:00

Post By：2017/11/6 10:27:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.rar

此主题相关图片如下：tim截图20171106102509.png

狐说八道

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

加好友

发短信

等级：幼狐帖子：104 积分：1139 威望：0 精华：0 注册：2017/9/13 8:43:00

Post By：2017/11/6 11:59:00 [显示全部帖子]

需求数量 --整数型

为什么会提示“标准表达式中数据类型不匹配”？？

狐说八道

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

加好友

发短信

等级：幼狐帖子：104 积分：1139 威望：0 精华：0 注册：2017/9/13 8:43:00

Post By：2017/11/6 13:57:00 [显示全部帖子]

谢谢老师，现在可以了。

还有个问题想问老师，窗口中的table是否也可以用上面的代码呢？

狐说八道

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

加好友

发短信

等级：幼狐帖子：104 积分：1139 威望：0 精华：0 注册：2017/9/13 8:43:00

Post By：2017/11/6 16:27:00 [显示全部帖子]

不好意思,是我表达不清楚。

我想问的是，需要交叉统计的基表是窗口中的table是否也可以统计呢？如：

Dim bm As String = "统计"
Dim b As New SQLCrossTableBuilder(bm,"窗口1_table1")
b.HGroups.AddExp("分类", "Right(产品名称,1)")
b.VGroups.AddExp("项目", "left(产品名称,len(产品名称) - 1)")
b.Totals.AddDef("需求数量")
b.filter = "产品名称 is not null"
b.VerticalTotal = True
b.Build
MainTable = Tables(bm)

将“物料计算” 改成了“窗口1_table1”

窗口的类型是SQLQuery

出现错误提示“未将对象引用设置到对象的实例”

麻烦老师帮忙看看哪里出了问题，先谢谢您了

[此贴子已经被作者于2017/11/6 17:29:18编辑过]