- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 绘图提示无效的数据类型 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=52991)
-- 发布时间：2014/6/27 0:15:00
-- 绘图提示无效的数据类型
此主题相关图片如下：结构.png
如图，是我的表结构，我直接修改帮助文件上的绘图代码如下：
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Dim t As Table = Tables("排采日报表") \'定义一个变量t引用数据表
Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加一个图系
Series.Length = t.Rows.Count \'图系的数据点数等于表的行数
For i As Integer = 0 To t.Rows.Count - 1 \'指定每个数据点的位置
Series.X(i) = t.Rows(i)("wellname") \'指定水平坐标
Series.Y(i) = t.Rows(i)("gasrate") \'指定垂直坐标
Next
运行提示“Invalid data type”
但是我使用这种方式又可以正常运行：
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.DataSource = "排采日报表"
\'设置绑定表
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加一个图系
Series.X.DataField = "wellname"
\'X轴绑定到月份列
Series.Y.DataField = "gasrate"
\'Y轴绑定到数量列
但是，我必须使用第一种方法，因为还需要增加过滤条件，但是第一种方法问题出在哪里？
-- 发布时间：2014/6/27 8:09:00
--
坐等版主。
-- 发布时间：2014/6/27 8:35:00
--
参考帮助 http://www.foxtable.com/help/topics/1032.htm
-- 发布时间：2014/6/27 8:43:00
--
非常感谢，
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Dim t As Table = Tables("排采日报表") \'定义一个变量t引用数据表
Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加一个图系
Series.Length = t.Rows.Count \'图系的数据点数等于表的行数
For i As Integer = 0 To t.Rows.Count - 1 \'指定每个数据点的位置
Series.X(i) = i \'指定水平坐标
Series.Y(i) = t.Rows(i)("GasRate") \'指定垂直坐标
Chart.AxisX.SetValueLabel(i, t.Rows(i)("WellName")) \'指定字符表示
Next
Chart.AxisX.AnnoWithLabels = True \'启用字符标示
运行正常。
-- 发布时间：2014/6/27 9:39:00
--
版主您好，我这句筛选条件怎么没有起作用呢？绘图的时候还是把所有的wellname都显示了。
Dim wellname2 As WinForm.ComboBox = e.Form.Controls("井名_绘图")
Dim recordtime2 As WinForm.ComboBox = e.Form.Controls("日期_绘图")
Dim rq As WinForm.RadioButton = e.Form.Controls("按日期显示")
Dim dj As WinForm.RadioButton = e.Form.Controls("按单井显示")
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Dim t As Table = Tables("排采日报表") \'定义一个变量t引用数据表
DataTables("排采日报表").LoadFilter = " RecordTime =\'"& recordtime2.text & "\'"
Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.XYplot
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加一个图系
Series.Length = t.Rows.Count \'图系的数据点数等于表的行数
Series.Text = "产气量"
For i As Integer = 0 To t.Rows.Count - 1 \'指定每个数据点的位置
Series.X(i) = i \'指定水平坐标
Series.Y(i) = t.Rows(i)("GasRate") \'指定垂直坐标
Chart.AxisX.SetValueLabel(i, t.Rows(i)("WellName")) \'指定字符表示
Next
Chart.AxisX.AnnoWithLabels = True \'启用字符标示
Series = Chart.SeriesList.Add() \'增加第二个图系
Series.Length = t.Rows.Count \'图系的数据点数等于表的行数
Series.Text = "产水量"
For i As Integer = 0 To t.Rows.Count - 1 \'指定每个数据点的位置
Series.X(i) = i \'指定水平坐标
Series.Y(i) = t.Rows(i)("WaterRate") \'指定垂直坐标
Chart.AxisX.SetValueLabel(i, t.Rows(i)("WellName")) \'指定字符表示
Next
Chart.AxisX.AnnoWithLabels = True \'启用字符标示
\'--------------------图表美化-----------------------------------------
Chart.LegendVisible = True \'显示图列
Chart.LegendCompass= CompassEnum.South \'图列显示在南方(底端)
Chart.HeaderText = "井含气量图随深度分布图"
Chart.AxisX.Text = "日期"
Chart.AxisY.Text = "产量,m3/t"
-- 发布时间：2014/6/27 9:40:00
--
改为 t.Filter = " RecordTime =\'"& recordtime2.text & "\'"
-- 发布时间：2014/6/27 9:41:00
--
已经搞定，非常感谢！