Dim b As New CrossTableBuilder("Cj1", "select 负责人,PlWeek as 年周,异常分类,ReYq as 达成,1 as sl from {ProjectSchedule_View} ", "数据源名称")
b.HGroups.AddDef("负责人") '添加客户列用于水平分组
b.HGroups.AddDef("年周") '添加客户列用于水平分组
b.VGroups.AddDef("异常分类", "异常分类_{0}") '添加产品列用于垂直分组
b.VGroups.AddExp("达成", "iif(达成 = true,'达成','未达成')") '添加产品列用于垂直分组
b.Totals.AddDef("sl") '添加数量列用于统计
b.VerticalTotal = True
Dim tbCj As Table = Tables(e.Form.Name & "_TabProjectSchedule_Cj")
tbcj.DataSource = b.BuildDataSource