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