交叉有统计列在部分电脑上无法统计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：可统计.png

交叉有统计列在部分电脑上无法统计，情况看附件

以下为代码

DataTables("录入盘点汇总信息").LoadFilter="所属供应商='" & Forms("盘点明细表").Controls("combobox1").text & "'"

DataTables("录入盘点汇总信息").Load()

Dim g As New CrossTableBuilder("统计表1", DataTables("录入盘点汇总信息"))

g.HGroups.AddDef("款序号")

g.HGroups.AddDef("原款号")

g.HGroups.AddDef("品名")

g.HGroups.AddDef("吊牌颜色", "颜色")

g.VGroups.AddDef("尺码序号")

g.VGroups.AddDef("尺码")

g.Totals.AddDef("录入数", "录入数")

g.Totals.AddDef("抽样数", AggregateEnum.Average, "抽样数")

g.OrderByTotal = True

g.HorizontalTotal = True

'g.VerticalTotal = True

g.Build()

Tables("盘点明细表_Table1").DataSource =g.BuildDataSource

Tables("盘点明细表_Table1").Cols.Frozen = 2

Dim g1 As New Subtotalgroup '定义一个新的分组

g1.GroupOn = "款序号" '分组列为客户列

g1.TotalOn = "合计_录入数"

Dim g2 As New Subtotalgroup '定义一个新的分组
图片点击可在新窗口打开查看

此主题相关图片如下：无法统计.png

g2.GroupOn = "款序号" '分组列为客户列

g2.TotalOn = "合计_抽样数"

With Tables("盘点明细表_Table1")

.SubtotalGroups.Clear() '清除原有的分组

.SubtotalGroups.Add(g1) '加入刚刚定义的分组

.SubtotalGroups.Add(g2) '加入刚刚定义的分组

.Subtotal() '生成汇总模式

End With

请上传实例测试

我是把数据库和项目备份直接以添加附件的方式上传么？

嗯，单个文件不能大于2M，如果大，可以放到网盘提供下载链接。或者新建一个项目设置为内部表，然后重现同样的错误

链接：https://pan.baidu.com/s/1-3TpEmM57Dw--4QC4gBk7A

提取码：2324

里面一个数据库和一个项目备份

[此贴子已经被作者于2021/9/9 10:40:57编辑过]

已经上传，接收请回复一下。

我这边测试没有问题，到有问题的电脑执行代码，然后跟踪数据库执行了什么sql？拿这个sql到数据库执行看看效果

视图下面sql改改试试

(SELECT TOP (10000) 吊牌信息_1.所属供应商, 吊牌信息_1.款序号, 吊牌信息_1.吊牌颜色, 吊牌信息_1.尺码, COUNT(1)

AS 抽样数

另外只取前10000行数据？TOP (10000)

另外建议把关联的2个表，商品id和编码加到索引里，可以提高10倍查询速度：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=158943&replyID=&skin=1

谢谢，我已经加了索引，速度是快了。不过还有疑问

1.你说的到有问题的电脑执行代码，然后跟踪数据库执行了什么sql？这个怎么操作。

2.你看这个附件。在有问题的电脑上，在开发工具的查询表里有这个抽样数，但在我自己做的窗口中打开没有。数据就来自己一张视图。
图片点击可在新窗口打开查看

此主题相关图片如下：开发工具的查询表抽样数据.png

跟踪sql百度“sql profiler”

是不是连接的不是同一个数据库？

主题：交叉有统计列 在部分电脑上无法统计

主题：交叉有统计列在部分电脑上无法统计