Dim g As New CrossTableBuilder("统计表1", DataTables("销售表")) Dim t3 As Table = Tables("窗口1_Table1") g.HGroups.AddDef("老师") g.VGroups.AddDef("状态") g.Totals.AddDef("状态", AggregateEnum.Count, "状态") g.HorizontalTotal = True t3.DataSource = g.BuildDataSource