Dim b As New SQLGroupTableBuilder("统计表1","cj")
b.Groups.AddDef("bjxx","班级")
b.Totals.Addexp( "一本文", "iif([zf] >= 540 And [kl]='1', 1, )")
b.Totals.Addexp( "二本文", "iif([zf] >= 480 And [kl]='1', 1, )")
b.Totals.Addexp( "专科文", "iif([zf] >= 190 And [kl]='1', 1, )")
b.Totals.Addexp( "一本理", "iif([zf] >= 532 And [kl]='2', 1, )")
b.Totals.Addexp( "二本理", "iif([zf] >= 453 And [kl]='2', 1, )")
b.Totals.Addexp( "专科理", "iif([zf] >= 180 And [kl]='2', 1, )")
b.VerticalTotal=True
b.Build()
Tables("统计表1").Sort = " 专科文 desc"
谢谢指导终于实现了