你的意思是画无数条线？根据xy坐标？

Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Dim t As Table = Tables("表A") \'定义一个变量t引用数据表
Chart = forms("map").Controls("Chart1") \' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.XYPlot
Chart.SeriesList.Clear() \'清除图表原来的图系
For Each name As String In t.DataTable.GetValues("linename")
   
    Series = Chart.SeriesList.Add() \'增加一个图系
    Series.Text = Name \'设置图系的标题
    Dim drs As List(Of DataRow) = t.DataTable.Select("linename = \'" & name & "\'")
    Series.Length = drs.Count \'设置图系的长度
    For r As Integer = 0 To drs.Count - 1
        Series.X(r) = val(drs(r)("x"))
        Series.Y(r) = val(drs(r)("y"))
    Next
Next
For r As Integer = 0 To t.Rows.Count - 1
   
Next
Chart.LegendVisible = True \'显示图列
Chart.LegendCompass= CompassEnum.South \'图列显示在南方(底端)