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

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  统计表  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=145400)

--  作者：cjl333333333
--  发布时间：2020/1/18 16:28:00
--  统计表
DataTables的统计可以用这个代码：
Dim g As New GroupTableBuilder("统计表1", DataTables("采购单明细"))
g.Groups.AddDef("物料编码")
g.Groups.AddDef("物料名称")
g.Groups.AddDef("物料规格")
g.Groups.AddDef("材质名称")
g.Groups.AddDef("交货日期", DateGroupEnum.Day, "日")
g.Groups.AddDef("备注")
g.Groups.AddDef("单价")
g.Totals.AddDef("数量")
g.Totals.AddDef("卷数")
g.Totals.AddDef("采购米数")
g.SubTotal = True
g.Build()
MainTable = Tables("统计表1")
如果改为Tables的统计就不行了，那对Tables的统计要用什么代码？

--  作者：有点蓝
--  发布时间：2020/1/18 16:39:00
--
只能使用DataTables，如果要按筛选后的数据统计，加上条件即可

Dim g As New GroupTableBuilder("统计表1", DataTables("采购单明细"))
g.Groups.AddDef("物料编码")
g.Groups.AddDef("物料名称")
g.Groups.AddDef("物料规格")
g.Groups.AddDef("材质名称")
g.Groups.AddDef("交货日期", DateGroupEnum.Day, "日")
g.Groups.AddDef("备注")
g.Groups.AddDef("单价")
g.Totals.AddDef("数量")
g.Totals.AddDef("卷数")
g.Totals.AddDef("采购米数")
g.SubTotal = True
g.filter = Tables("采购单明细").filter
g.Build()
MainTable = Tables("统计表1")

--  作者：cjl333333333
--  发布时间：2020/1/18 16:46:00
--
谢谢

--  作者：cjl333333333
--  发布时间：2020/1/18 17:07:00
--

Dim g As New GroupTableBuilder("统计表1", DataTables("采购单明细"))
g.Groups.AddDef("物料编码")
g.Groups.AddDef("物料名称")
g.Groups.AddDef("物料规格")
g.Groups.AddDef("材质名称")
g.Groups.AddDef("交货日期", DateGroupEnum.Day, "日")
g.Groups.AddDef("备注")
g.Groups.AddDef("单价")
g.Totals.AddDef("数量")
g.Totals.AddDef("卷数")
g.Totals.AddDef("采购米数")
g.SubTotal = True
g.filter = Tables("采购单明细").filter
g.Build()
MainTable = Tables("统计表1")
这个g.Groups.AddDef("交货日期", DateGroupEnum.Day, "日")这个到时只会显示一个日期数字，怎么可以使用它显示整个日期“2020-1-2”

--  作者：有点蓝
--  发布时间：2020/1/18 17:11:00
--
g.Groups.AddDef("交货日期", DateGroupEnum.none, "日")