Dim tb As Table = Tables(e.Form.Name & "_TabProjectSchedule_Mx")
Dim dt As DataTable = tb.DataTable
Dim cmd As New SQLCommand
cmd.C
cmd.Comman dText = "sel ect 负责人,PlWeek as 年周,异常分类,ReYq as 达成,1 as sl from {ProjectSchedule_View} "
tb.DataSource = cmd.ExecuteReader
Dim tbCj As Table = Tables(e.Form.Name & "_TabProjectSchedule_Cj")
Dim b As New CrossTableBuilder("Cj1", dt)
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