不生成就行啊
'-----------------------------------------------------------将生产坐标数据成图---------------------------------------------
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("NList") '定义一个变量t引用数据表
Forms("progressmap").open
Dim vnames As String() = {"WM", "Voy"} ',"Rock"}
Dim Colors As Color() = {Color.blue, Color.red} ',Color.green}
Chart =Forms("progressmap").Controls("progressmap")
Chart.ChartType = ChartTypeEnum.XYPlot
Chart.SeriesList.Clear() '清除图表原来的图系
For i As Integer = 0 To vnames.length-1
Series = Chart.SeriesList.Add() '增加一个图系
Series.Text =VNames(i) ' Name '设置图系的标题
Dim drs As List(Of DataRow) = t.DataTable.Select("[VName]='" & VNames(i) & "'")
Series.Length = drs.Count '设置图系的长度
For r As Integer = 0 To drs.Count - 1
Series.X(r) = val(drs(r)("PointX"))
Series.Y(r) = val(drs(r)("PointY"))
Series.LineColor = Colors(i)
Series.LineThickNess=2.5
Next
Chart.LegendVisible = True '显示图列
Series.MarkShape = MarkShapeEnum.None
Chart.LegendCompass= CompassEnum.South
Next