主题：[求助]请教如果生成这样的图表？

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

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

Dim t As Table = Tables("发病图_Table1") '定义一个变量t引用数据表

Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表

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

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

For r As Integer = 0 To t.Rows.Count - 1

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

    Series.Text = t.Rows(r)("确认学校") '设置图系的标题

    Series.Length = t.Cols.Count - 2 '设置图系的长度

    For c As Integer = 1 To t.Cols.Count - 1

        Series.X(c) = c

        Series.Y(c) = t.Rows(r)(t.Cols(c).Name)

        Chart.AxisX.SetValueLabel(c, t.Cols(c).Name) '指定字符表示

    Next

Next

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

Chart.LegendVisible = True '显示图列

Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)
此主题相关图片如下：qq截图20130620091030.jpg