Dim g As New GroupTableBuilder("统计表1", DataTables("订单表"))
g.Groups.AddDef("签约日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("签约日期", "月")
g.Totals.AddDef("成交金额")
g.VerticalTotal = True
g.SubTotal = True
g.FromServer = True
g.Build()
MainTable = Tables("统计表1")
图表按年月显示 如2017-1月
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("统计表1") '定义一个变量t引用数据表
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '图表类型该为Bar(条形)
Chart.DataSource = "统计表1" '设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.X.DataField = "月" 'X轴绑定到产品列
Series.Y.DataField = "成交金额" 'Y轴绑定到数量列
Series.DataLabelText = "{#YVAL}"
[此贴子已经被作者于2018/7/1 23:14:54编辑过]