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 \'图列显示在南方(底端)