以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  生成图表  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=84696)

--  作者:一笑
--  发布时间:2016/5/7 22:23:00
--  生成图表
如何把以下表生成图表(每一列数值对应一个柱状),看了帮助,不知如何绑定列,谢谢

图片点击可在新窗口打开查看此主题相关图片如下:统计表.png
图片点击可在新窗口打开查看


--  作者:大红袍
--  发布时间:2016/5/8 11:29:00
--  

 

[此贴子已经被作者于2016/5/8 11:32:55编辑过]

--  作者:大红袍
--  发布时间:2016/5/8 11:33:00
--  
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.SeriesList.Clear() \'清除图表原来的图系
Chart.ChartType = ChartTypeEnum.Bar \'设置图表类型
chart.AxisX.ClearValueLabel
Chart.BarClusterWidth = 80
Series = Chart.SeriesList.Add() \'增加一个图系
Series.Length = 2
Series.X(0) = 0 \'指定水平坐标
Series.Y(0) = 100 \'指定垂直坐标
Chart.AxisX.SetValueLabel(0, "应完成") \'指定字符表示
Series.X(1) = 1 \'指定水平坐标
Series.Y(1) = 30 \'指定垂直坐标
Chart.AxisX.SetValueLabel(1, "已完成") \'指定字符表示
Chart.AxisX.AnnoWithLabels = True \'启用字符标示