以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  图示切换后X轴字体重叠  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=157901)

--  作者：dengk03 --  发布时间：2020/11/2 11:23:00 --  图示切换后X轴字体重叠 图示表上方有一个切换选项，切换后图表显示不同的图示结果，两种图表的X轴项不一样。但是切换后发现原有的X轴坐标名称没有消失，与新的X轴坐标名称重叠在一起，请问这种情况怎么解决？ Dim Chart As WinForm.Chart \'定义一个图表变量 Dim Series As WinForm.ChartSeries \'定义一个图系变量 Dim t As Table = Tables("应收统计") \'定义一个变量t引用数据表 Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表 Chart.SeriesList.Clear() \'清除图表原来的图系 Chart.ChartType = ChartTypeEnum.Bar \'设置图表类型 Series = Chart.SeriesList.Add() \'增加一个图系 Series.Length = t.Rows.Count \'图系的数据点数等于表的行数 For i As Integer = 0 To t.Rows.Count - 1 \'指定每个数据点的位置     Series.X(i) = i \'指定水平坐标     Dim w As Double = format(t.Rows(i)("当年销售金额")/10000,"0")     Series.Y(i) = w \'指定垂直坐标     Chart.AxisX.SetValueLabel(i, t.Rows(i)("客户")) \'指定字符表示 Next Chart.AxisX.AnnoWithLabels = True \'启用字符标示 Series.DataLabelText = "{#YVAL}" Series.DataLabelCompass = labelCompassEnum.North

--  作者：有点蓝 --  发布时间：2020/11/2 11:32:00 --   加入代码清除之前的标签 Chart.AxisX.ClearValueLabel