Dim huizong1 As Table = e.Form.Controls("huizong1").Table
Dim c As New CrossTableBuilder("huizong1",detail.DataTable)
c.HGroups.AddDef("zuhuname","租户") \'添加客户列用于水平分组
c.HGroups.AddDef("zuhushangpuname","商铺名称")
c.HGroups.AddDef("quyu","区域")
c.HGroups.AddDef("fanghao","房号")
c.VGroups.AddDef("yuefen","月份") \'添加产品列用于垂直分组
c.Totals.AddDef("dyingshoujine","应收金额")
c.HorizontalTotal = True
c.VerticalTotal = True
huizong1.DataSource = c.BuildDataSource \'打开生成的统计表