例如你加个按钮,按钮代码:
Dim g As New GroupTableBuilder("统计表1", DataTables("课程信息"))
g.Groups.AddDef("培训时间", DateGroupEnum.Year, "年")
g.Totals.AddDef("实际人数")
g.Totals.AddDef("人天统计")
g.Build()
DataTables("统计表1").DataCols.Add(" 新列",Gettype(Double),"人天统计/实际人数")
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.DataSource = "统计表1" '设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.X.DataField = "年" 'X轴绑定到月份列
Series.Y.DataField = " 新列" 'Y轴绑定到数量列
Chart.AxisX.MinorTick = False