主题：绘图提示无效的数据类型

此主题相关图片如下：结构.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轴绑定到数量列

 

但是，我必须使用第一种方法，因为还需要增加过滤条件，但是第一种方法问题出在哪里？

 

   坐等版主。

 非常感谢，

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 '启用字符标示


运行正常。

 版主您好，我这句筛选条件怎么没有起作用呢？绘图的时候还是把所有的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"

   已经搞定，非常感谢！