主题：制作图表求助

我使用帮助里面的代码进行制作图表，发现如下错误：

先上代码

Dim Chart As WinForm.Chart 

Dim Series As WinForm.ChartSeries 

Chart= Forms("chart").Controls("Chart1")

Chart.SeriesList.Clear()

For Each chart_series As String In DataTables("chart_opti").GetValues("Freightmethod")
MessageBox.Show(chart_series)   
Series = Chart.SeriesList.Add() 

    Series.Text = chart_series   
    Series.Length = 12 

    Chart.AxisX.Min = 1  

    Chart.AxisX.Max = 12 
    For Chart_wt As Double = 1 To 12 Step 1 
        Series.X(Chart_wt) = Chart_wt     
        Dim r As DataRow = DataTables("chart_opti").Find("[Freightmethod]= " & chart_series  & " And  [chargeWT] = " & Chart_wt)

        If r IsNot Nothing 
            Series.Y(Chart_wt) = r("cost") 

        End If
    Next

Next

错误截屏如下，主要为没有找到[AIR]这个列？

此主题相关图片如下：捕获.png

是不是series的图系不能有“-”这个符号？

Dim r As DataRow = DataTables("chart_opti").Find("[Freightmethod]= '" & chart_series  & "' And  [chargeWT] = " & Chart_wt)

此主题相关图片如下：捕获.png

我修改代码了，可以做出1~11个线，但是报错如上。

 

Dim r As DataRow = DataTables("chart_opti").Find("[Freightmethod] = '" & chart_series & "' And [chargeWT] = " & Chart_wt)

道理同3楼，别人不知道你的列是什么类型的，自己学会判断

这一列是数字 chargeWT是数字列。double

数字列不应该出这个错误

此主题相关图片如下：捕获.png

我觉得问题不是在与等于号后面的字符或是数字格式有没有正确的框起来。

如果是find的代码错误，那么一条线都画不出来。

现在已经有11个数据点，就是在最后1个数据点的时候出错。

 

上例子测试