以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]窗口显示报表代码修改  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=53318)
--  作者：jygyyl
--  发布时间：2014/7/4 17:14:00
--  [求助]窗口显示报表代码修改
Dim dt1 As fxDataSource
g.Groups.AddDef("社区名称")
g.Totals.AddDef("投保份额")
g.FromServer = True
g.Build()
dt1 = g.BuildDataSource()

Dim g1 As New GroupTableBuilder("统计表1", DataTables("YWBXTBR"))
Dim dt2 As fxDataSource
g1.Groups.AddDef("社区名称")
g1.Totals.AddDef("财政补贴", AggregateEnum.Count)
g1.FromServer = True
g1.Filter = "[财政补贴] = \'True\'"
g1.Build()
dt2 = g1.BuildDataSource()

dt1.Combine("社区名称",dt2,"社区名称") \'将销售统计数据组合到进货统计数据
dt1.Show("统计表1") \'显示统计结果

Tables("tongjibiao_Table1").DataSource = ？？？？？

如何让生成的报表显示的窗口中？求老师指教！
--  作者：有点甜
--  发布时间：2014/7/4 17:16:00
--  
dt1.Combine("社区名称",dt2,"社区名称") \'将销售统计数据组合到进货统计数据
\'dt1.Show("统计表1") \'显示统计结果

Tables("tongjibiao_Table1").DataSource = dt1