For Each c As Col In Tables("净资产收益率").Cols
If c.Name.Contains("1231") Or c.Name.Contains("代码") Or c.Name.Contains("名称")Then
c.Visible = True
Else
c.Visible = False
End If
Next
For r As Integer = 0 To t.Rows.count - 1
Series = Chart.SeriesList.Add() '增加一个图系
Series.Text = t.rows(r)("名称") '设置图系的标题
Series.Length = t.Cols.Count '设置图系的长度
Series.TooltipText = "X = {#XVAL}, Y = {#YVAL}"
For c As Integer = 3 To t.Cols.count - 1
Series.X(c) = c
此主题相关图片如下：微信截图_20190425144243.png
Series.Y(c) = t.Rows(r)(c)
Chart.AxisX.SetValueLabel(c, t.Cols(c).caption.SubString(t.Cols(c).caption.Length - 10)) '指定字符表示
Series.DataLabelText = "{#YVAL}"
Series.LineThickNess=5
Next
Next
Chart.AxisX.AnnoWithLabels = True '启用字符标示
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)
隐藏的列在图表中也显示出来了，请问该如何处理？
加好友 
发短信
Post By：2019/4/25 14:59:00 [只看该作者]
