以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]用代码生成的交叉表,如何显示在已有的窗体上的Table上呢?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=105022)

--  作者:蓝才文百
--  发布时间:2017/8/10 11:46:00
--  [求助]用代码生成的交叉表,如何显示在已有的窗体上的Table上呢?
比如,我代码写好了:
Dim b As New CrossTableBuilder("销售统计",dt)
b.HGroups.AddDef("客户编号") \'添加客户列用于水平分组
b.HGroups.AddDef("客户名称")
b.HGroups.AddDef("客户地址")
b.VGroups.AddDef("商品名称") \'添加产品列用于垂直分组
b.Totals.AddDef("商品数量") \'添加数量列用于统计
b.VerticalTotal= True \'垂直汇总
b.HorizontalTotal = True \'水平汇总
b.Build \'生成统计表

Dim t As Table = Tables("销售统计窗体_tblSale")
t.Datasource = b

这样不行,无法显示在已有窗体的Table里,这个交叉表依然显示在 MainTable。
如何才能显示在已有的窗体上的Table上呢?谢谢!

--  作者:有点甜
--  发布时间:2017/8/10 12:38:00
--  

Dim b As New CrossTableBuilder("销售统计",dt)
b.HGroups.AddDef("客户编号") \'添加客户列用于水平分组
b.HGroups.AddDef("客户名称")
b.HGroups.AddDef("客户地址")
b.VGroups.AddDef("商品名称") \'添加产品列用于垂直分组
b.Totals.AddDef("商品数量") \'添加数量列用于统计
b.VerticalTotal= True \'垂直汇总
b.HorizontalTotal = True \'水平汇总

Dim t As Table = Tables("销售统计窗体_tblSale")
t.Datasource = b.BuildDataSource


--  作者:蓝才文百
--  发布时间:2017/8/10 13:03:00
--  
谢谢版主,搞定了!
不要 b.build,直接把创建的结果给t:
t.Datasource = b.BuildDataSource
明白了!非常感谢!