Dim g As New GroupTableBuilder("统计表1", DataTables("userinfo"))
g.Groups.AddDef("period")
g.Totals.AddDef("pname", AggregateEnum.Count)
g.GrandProportion = True
g.FromServer = True
g.Build()
Dim cns() As String = {"入职", "初级", "中级", "优秀"}
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart = e.Form.Controls("Chart2") ' 引用窗口中的图表
Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
'Chart.HeaderText = "员工能力等级概览"
Chart.ChartType = ChartTypeEnum.Bar '图表1类型为Bar(条形)
Chart.DataSource = "统计表1" '设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '给图表1增加一个图系
For Each cn As String In cns
Series.Text = cn
Series.X(cn) = "period" 'X轴绑定到产品列
Series.Y(cn) = "pname" 'Y轴绑定到数量列
Next
Series.MarkShape = MarkShapeEnum.Dot
Series.MarkSize = 3
老师我还是没弄出来，上面的报错？
加好友 
发短信
Post By：2022/10/11 14:06:00 [显示全部帖子]
此主题相关图片如下：微信截图_20221011140356.png