主题：关于数据标示显示

在图示多列情况下，以下代码中用于显示数据标示的代码，为什么不会对所有列显示呢

Dim Chart As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

Dim t2 As Table = Tables("费用占比2(类别)") '定义一个变量t引用数据表

Chart = e.Form.Controls("后台费用率") ' 引用窗口中的图表

Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)

Chart.SeriesList.Clear() '清除图表原来的图系

chart.AxisX.ClearValueLabel

chart.AxisY.ClearValueLabel

For Each c As Col In t2.Cols

        If c.Name <> "年" Then

        Series = Chart.SeriesList.Add() '增加一个图系

        Series.Text = c.Name '设置图系的标题

        Series.Length = t2.Rows.Count '设置图系的长度

        For r2 As Integer = 0 To t2.Rows.Count - 1

            Series.X(r2) = r2

            Series.Y(r2) = t2.Rows(r2)(c.Name)

        Next

    End If

Next

For r2 As Integer = 0 To t2.Rows.Count - 1 

    Chart.AxisX.SetValueLabel(r2, t2.Rows(r2)("年")) '指定字符表示

Next

Chart.TopMost = True

Chart.AxisX.AnnoWithLabels = True '启用字符标示

Chart.VisualEffect = True '加上这一行,让你的图表更漂亮

Chart.LegendVisible = True '显示图列

Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)

此主题相关图片如下：22.jpg

此主题相关图片如下：qq图片20160401103335.png