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

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

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

Chart.ChartType = ChartTypeEnum.Bar \'设置图表类型

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

For n As Integer = e.Form.Controls("ComboBox1").text  To e.Form.Controls("ComboBox2").text

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

    Series.Length = 13         \'图系的数据点数等于表的行数

    Series.DataLabelText = "{#YVAL}"

    Series.DataLabelCompass=LabelCompassEnum.North

    

    For i As Integer = 1 To 12\'指定每个数据点的位置

        Series.X(i) = i     \'指定水平坐标 月份

        Dim r As DataRow = DataTables("qmdkye").Find("数据日期 = " & n & Format(i,"00"))

        If r IsNot Nothing

            Series.Y(i) = r("贷款逾期率") \'指定垂直坐标

        Else

            Series.Y(i) = 0

        End If

    Next

    \'设置了每个图系的标题:

    Series.Text =N &"年"

Next

\'在指定的位置显示图例:

Chart.LegendVisible = True \'显示图列

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:折线图.foxdb