以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口表的分组统计  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104872)

--  作者:蓝蚂蚁
--  发布时间:2017/8/7 14:39:00
--  窗口表的分组统计
下面的代码是统计表的分组统计:
Dim g As New GroupTableBuilder("统计表2", DataTables("采购计划总表"))
g.Groups.AddDef("计划日期缩写")
g.Groups.AddDef("配送公司")
g.Totals.AddDef("金额")
g.Build()
MainTable = Tables("统计表2")

如果只是统计窗口中的表【窗口1_Table1】,代码如何改变?用:Dim g As New GroupTableBuilder("统计表2", DataTables("窗口1_Table1")) 提示:不存在名为窗口1_Table1的datatable!  如何破?

--  作者:有点甜
--  发布时间:2017/8/7 14:42:00
--  

Dim t As Table = Tables("窗口1_Table1")
Dim g As New GroupTableBuilder("统计表2", t.DataTable)
g.Filter = t.filter
g.Groups.AddDef("计划日期缩写")
g.Groups.AddDef("配送公司")
g.Totals.AddDef("金额")
g.Build()
MainTable = Tables("统计表2")

[此贴子已经被作者于2017/8/7 15:02:30编辑过]

--  作者:蓝蚂蚁
--  发布时间:2017/8/7 14:56:00
--  
老师你的代码不行,跟这个代码一样的结果:Dim g As New GroupTableBuilder("统计表2", DataTables("采购计划总表"))
g.Groups.AddDef("计划日期缩写")
g.Groups.AddDef("配送公司")
g.Totals.AddDef("金额")
g.Build()
MainTable = Tables("统计表2")

--  作者:有点甜
--  发布时间:2017/8/7 15:02:00
--  

写错了,改一下

 

Dim t As Table = Tables("窗口1_Table1")
Dim g As New GroupTableBuilder("统计表2", t.DataTable)
g.Filter = t.filter
g.Groups.AddDef("计划日期缩写")
g.Groups.AddDef("配送公司")
g.Totals.AddDef("金额")
g.Build()
MainTable = Tables("统计表2")