主题：关于chart的问题

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart = e.Form.Controls("Chart1")
Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.ChartType = ChartTypeEnum.Bar '图表类型该为Bar(条形)
Chart.SeriesList.Clear() '清除图表原来的图系
Chart.AxisX.ClearValueLabel
series = Chart.SeriesList.Add() '增加第一个图系
Series.Text = "总件数"
Series.Length = 12
'Chart.AxisY.Major = 1
'Chart.AxisX.MinorTick = False
'Chart.AxisY.MinorTick = False
For i As Long = 1 To 12
    Series.X(i - 1) = i 'X轴绑定到产品列
    Chart.AxisX.SetValueLabel(i, i & "月份")
    Dim fdr As DataRow = DataTables("report").Find("月份 = '" & i & "'")
    If fdr IsNot Nothing Then
        series.Y(i-1) = fdr("总件数")
    Else
        series.Y(i-1) = 0
    End If
Next

Chart.AxisX.AnnoWithLabels = True '启用字符标示
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.East '图列显示在南方(底端)