Dim g As New CrossTableBuilder("统计表13", DataTables("机台欠料")) g.HGroups.AddDef("欠料日期", DateGroupEnum.Year, "年度") g.VGroups.AddDef("回复_责任单位") g.Totals.AddDef("_Identify", AggregateEnum.Count, "数量") g.HorizontalTotal = True g.VerticalTotal = True g.HorizontalProportion = True g.Decimals = 2 g.FromServer = True Tables("欠料统计_Table2").DataSource = g.BuildDataSource Tables("欠料统计_Table2").font = New Font("宋体", 12)
|