- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 统计代码出现的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=160388)
-- 发布时间：2021/1/31 22:20:00
-- 统计代码出现的问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:毛利计算.foxdb |
此主题相关图片如下：图片2.png
此主题相关图片如下：图片1.png
请教老师，在设计“原料使用情况” 窗口设计时，进入2020年12月份，直接启动foxtable,出现第一张表样式，再次运用出现第二张表样式，
检查发现，运行 Dim g As New Subtotalgroup \'定义一个新的分组
g.GroupOn = "项目" \'分组列为客户列
g.TotalOn = "定额总重量,占类别比重,占重量比重" \'对数量和金额进行统计
With Tables("计算表")
.SubtotalGroups.Clear() \'清除原有的分组
.SubtotalGroups.Add(g) \'加入刚刚定义的分组
.Subtotal() \'生成汇总模式
End With
运行此代码会出现上述问提，删除该代码无问题出现，请教老师解决，谢谢。
-- 发布时间：2021/1/31 22:23:00
--
刚才说反了，直接启动foxtable,出现第二张表样式（图1），再次运用出现第一张表样式，用的是外部表
-- 发布时间：2021/1/31 23:31:00
--
汇总后会引起汇总列产生排序，取消汇总后排序没有取消，每次给项目列赋值的时候会导致行重新排序，从而导致for each遍历异常。加上一句代码取消排序即可。其它代码我优化了一下，自行理解
