必须是sqlCrossTableBuilder,才能使用AddExp
Dim tbCj As Table = Tables(e.Form.Name & "_TabProjectSchedule_Cj")
Dim b As New sqlCrossTableBuilder("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(达成 = 1,'达成','未达成')")
b.Totals.AddDef("sl")
b.VerticalTotal = True
tbcj.DataSource = b.BuildDataSource