以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  GroupTableBuilder 分组列的属性会变？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87363)
--  作者：freeants
--  发布时间：2016/7/9 9:20:00
--  GroupTableBuilder 分组列的属性会变？
Dim b As New GroupTableBuilder("统计表1",DataTables("订单"))
b.Groups.AddDef("序列号") \'根据 序列号    如果序列号 是 整数
b.Totals.AddDef("数量") \'对数量进行统计
b.Build \'生成统计表
Maintable = Tables("统计表1")


如果序列号是整数， 生成的 统计表  序列号 会变成 备注， 如何破
--  作者：Hyphen
--  发布时间：2016/7/9 9:54:00
--  
“序列号”列的类型是整型吗？
--  作者：freeants
--  发布时间：2016/7/9 10:29:00
--  
序列号 是我自己添加的 一个 整数列 ，但是进行统计后， 统计表 里面的序列号 列 变成了 备注列 ，我希望还是 整数列
--  作者：Hyphen
--  发布时间：2016/7/9 10:40:00
--  
测试没有问题，上例子说明
--  作者：freeants
--  发布时间：2016/7/9 12:14:00
--  
请看附件 
产品编号 ， 运行窗口代码后 ，在统计表里面 变成 备注列

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:统计.foxdb
--  作者：Hyphen
--  发布时间：2016/7/9 12:24:00
--  
因为使用了VerticalTotal

改为
Dim b As New GroupTableBuilder("产品统计",DataTables("产品"))
b.Groups.AddDef("产品编号")
b.Groups.AddDef("产品名称")
b.Groups.AddDef("单价")
b.Totals.AddDef("数量")
b.Subtotal = True
B.SubtotalLevel = 0
b.build