- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 制作图表求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92512)
-- 发布时间：2016/11/5 12:26:00
-- 制作图表求助
我使用帮助里面的代码进行制作图表，发现如下错误：
先上代码
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
-- 发布时间：2016/11/5 12:27:00
--
是不是series的图系不能有“-”这个符号？
-- 发布时间：2016/11/5 14:20:00
--
Dim r As DataRow = DataTables("chart_opti").Find("[Freightmethod]= \'" & chart_series & "\' And [chargeWT] = " & Chart_wt)
-- 发布时间：2016/11/5 16:11:00
--
此主题相关图片如下：捕获.png
我修改代码了，可以做出1~11个线，但是报错如上。
Dim r As DataRow = DataTables("chart_opti").Find("[Freightmethod] = \'" & chart_series & "\' And [chargeWT] = " & Chart_wt)
-- 发布时间：2016/11/5 16:21:00
--
道理同3楼，别人不知道你的列是什么类型的，自己学会判断
-- 发布时间：2016/11/5 16:46:00
--
这一列是数字 chargeWT是数字列。double
-- 发布时间：2016/11/5 16:54:00
--
数字列不应该出这个错误
-- 发布时间：2016/11/5 16:55:00
--
此主题相关图片如下：捕获.png
我觉得问题不是在与等于号后面的字符或是数字格式有没有正确的框起来。
-- 发布时间：2016/11/5 16:56:00
--
如果是find的代码错误，那么一条线都画不出来。
现在已经有11个数据点，就是在最后1个数据点的时候出错。
-- 发布时间：2016/11/5 17:01:00
--
上例子测试