Dim Chart
As WinForm.Chart
'定义一个图表变量
Dim Series
As WinForm.ChartSeries '定义一个图系变量
Dim t As
Table = Tables("统计表1")
'定义一个变量t引用数据表
Chart = e.Form.Controls("Chart1")
'
引用窗口中的图表
Chart.VisualEffect = False
Chart.SeriesList.Clear() '清除图表原来的图系
For r As
Integer =
0
To t.Rows.count - 1
Series = Chart.SeriesList.Add()
'增加一个图系
Series.Text =
t.rows(r)("产品") '设置图系的标题
Series.Length =
t.Cols.Count - 1 '设置图系的长度
For c As
Integer =
1
To t.Cols.count -1
Series.X(c - 1) = c - 1
Series.Y(c
- 1) = t.Rows(r)(c)
Chart.AxisX.SetValueLabel(c -
1, t.Cols(c).caption) '指定字符表示
Next
Next
Chart.AxisX.AnnoWithLabels = True
'启用字符标示
Chart.LegendVisible = True
'显示图列
Chart.LegendCompass= CompassEnum.South
'图列显示在南方(底端)
此主题相关图片如下:企业微信截图_20190907212059.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2019-9/20199721212123396.png)
以项目ID 每行都有数据变化 希望做成柱形图
[此贴子已经被作者于2019/9/7 21:22:36编辑过]