- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何清除图表的第二坐标（已解决） (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86588)
-- 发布时间：2016/6/21 10:40:00
-- [求助]如何清除图表的第二坐标（已解决）
图表的第二坐标无法清除，如何解决，请各位老师指教，谢谢！
\'生成图表2
Dim Chart2 As WinForm.Chart \'定义一个图表变量
Dim Series2 As WinForm.ChartSeries \'定义一个图系变量
Chart2= Forms("当天工效分析").Controls("Chart2") \' 引用窗口中的图表
Chart2.VisualEffect = True \'加上这一行,让你的图表更漂亮
\'第一Y坐标
Chart2.ChartType = ChartTypeEnum.Bar \'图子项表类型为条形
Chart2.SeriesList.Clear() \'清除图表原来的图系
Chart2.AxisX.ClearValueLabel() \'清除字符标示
Series2 = Chart2.SeriesList.Add() \'增加一个图系
Series2.Text = "频数" \'图例标题
Series2.LineColor = Color.Cyan \'指定颜色
Series2.Length = t2.Rows.Count \'设置图系的长度
For i1 As Integer = 0 To fzs + 1 \'指定每个数据点的位置
Series2.X(i1) = i1 \'指定水平坐标
Series2.Y(i1) = t2.Rows(i1)("频数") \'指定垂直坐标
Chart2.AxisX.SetValueLabel(i1, t2.Rows(i1)("分组值")) \'指定字符表示
Next
Chart2.AxisX.Text = "工效分组" \'X坐标标题
Chart2.AxisX.Font = New Font("宋体",8,FontStyle.Bold) \'X坐标标题字体
Chart2.AxisY.Text = "频数" \'Y坐标标题
Chart2.AxisY.Font = New Font("宋体",8,FontStyle.Bold) \'Y坐标标题字体
Series2.TooltipText = "{#YVAL}" \'鼠标移动到标记点时,显数据
\'第二Y坐标
Chart2.ChartType2 = ChartTypeEnum.XYPlot \'图表1类型为线形
Chart2.SeriesList2.Clear() \'清除图表原来的图系
Series2 = Chart2.SeriesList2.Add() \'给图表2增加一个图系
Series2.Text = "概率系数" \'图例标题
Series2.LineColor = Color.Lime \'指定颜色
Series2.LineThickNess = 0.5
Series2.FitType = FitTypeEnum.Spline \'设置数据点连线为平滑曲线
Series2.Length = t2.Rows.Count \'设置图系的长度
For i1 As Integer = 0 To fzs + 1 \'指定每个数据点的位置
Series2.X(i1) = i1 \'指定水平坐标
Series2.Y(i1) = t2.Rows(i1)("概率系数") \'指定垂直坐标
Chart2.AxisX.SetValueLabel(i1, t2.Rows(i1)("分组值")) \'指定字符表示
Next
Series2.MarkShape = False \'取消标记点
Chart2.AxisY2.Text = "概率系数" \'坐标标题
Chart2.AxisY2.Font = New Font("宋体",8,FontStyle.Bold) \'Y2坐标标题字体
Chart2.AxisY2.GridMajorVisible = False \'隐藏Y2轴的网格线
清除图表的代码：
Dim Chart2 As WinForm.Chart \'定义一个图表变量
Dim Series2 As WinForm.ChartSeries \'定义一个图系变量
Chart2 = e.Form.Controls("Chart2") \' 引用窗口中的图表
Chart2.SeriesList.Clear() \'清除图表原来的图系
效果：
此主题相关图片如下：捕获19.png
[此贴子已经被作者于2016/6/21 10:44:09编辑过]
-- 发布时间：2016/6/21 10:44:00
--
在清除图表代码中增加一条代码解决问题。