Dim b As New SQLGroupTableBuilder("统计表1","海报清单表")
b.AddTable("海报清单表","海报档期号","海报档期基本信息表","海报档期号")
b.Groups.AddDef("{海报清单表}.海报档期号","海报档期号")
b.Groups.AddDef("{海报档期基本信息表}.海报主题","海报主题")
b.Totals.AddExp("销售额","销售额 / 10000")
Dim dt1 As fxDataSource
dt1 = b.BuildDataSource()
b = New SQLGroupTableBuilder("统计表2","海报预估销售表")
b.AddTable("海报预估销售表","海报档期号","海报档期基本信息表","海报档期号")
b.Groups.AddDef("{海报预估销售表}.海报档期号","海报档期号")
b.Groups.AddDef("{海报档期基本信息表}.海报主题","海报主题")
b.Totals.AddExp("目标销售","目标销售")
Dim dt2 As fxDataSource
dt2 = b.BuildDataSource()
dt1.Combine("海报档期号",dt2,"海报档期号")
dt1.show("测试")
MainTable = Tables("测试")