主题：日期生成统计

你设置生成临时表的时候，可以设置根据 年、月 分组，而不仅仅是根据月分组啊。

汗，你根本就没看代码，全依靠别人

 

Dim g As New GroupTableBuilder("临时统计表", DataTables("表A"))
g.Groups.AddDef("订单日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("订单日期", tp, "月")
g.Totals.AddDef("成本合计")
g.Totals.AddDef("利润合计")
g.Totals.AddDef("返点成本")
g.Totals.AddDef("采购成本")
g.Totals.AddDef("利润合计")
'g.Filter = filter1  '全部
g.filter = filter1 & " and 利润合计 <> 0" '显示大于0的
g.Build()

 

Dim t As Table = Tables("临时统计表")
t.Sort = "年,月"
For i As Integer = 7 To 11
    Dim c As WinForm.CheckBox = e.Form.Controls("CheckBox" & i)
    If c.Checked Then
        Series = Chart.SeriesList.Add() '增加一个图系
        Series.Length = t.Rows.Count
        Series.TooltipText = c.Text & " : {#YVAL}"
        Series.Text = c.Text
        For r As Integer = 0 To t.Rows.Count - 1
            Series.X(r) = r
            Series.Y(r) = t.Rows(r)(c.Text)
        Next
    End If
Next

For r As Integer = 0 To t.Rows.Count - 1
    Chart.AxisX.SetValueLabel(r, t.Rows(r)("年") & t.Rows(r)("月")) '指定字符表示
Next
Chart.AxisX.AnnoWithLabels = True '启用字符标示
Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.LegendVisible = True '显示图列
Chart.AxisX.AnnoRotation = - 45 'X轴标示逆时针旋转45度
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)

chart.AxisX.Font = new font("宋体", 15)