筛选后生成图表的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我在系统菜单里面先筛选后生成图表，一切正常

执行以下代码后，生成的图表是没有筛选过的。

通过以下代码就出错了，各位老师帮心看一下，哪里不对。谢谢了

Dim Filter As String

With e.Form.Controls("ComboBox4")

If .Value IsNot Nothing Then

Filter = "血糖监测_时间段 = '" & .Value & "'"

End If

End With

If Filter > "" Then

Tables("血糖监测").Filter = Filter

End If

Dim Chart As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表

Chart.DataSource = "血糖监测" '设置绑定表

Chart.SeriesList.Clear() '清除图表原来的图系

Chart.AxisX.Major = 4 '主刻度间隔值为5000

Series = Chart.SeriesList.Add() '增加第一个图系

Series.TooltipText = "{#XVAL}, 血糖值:{#YVAL}"

Chart.AxisX.DateType = True 'X轴是日期型

Chart.AxisX.AnnoFormatString = "MM月dd日" '设置Y轴的标示格式

Series.Text = "血糖监测_血糖值"

Series.X.DataField = "血糖监测_检测日期" 'X轴绑定到产品列

Series.Y.DataField = "血糖监测_血糖值" 'Y轴绑定到数量列

Chart.AxisX.AnnoRotation = - 45 'X轴标示逆时针旋转45度

[此贴子已经被作者于2014-12-6 16:10:33编辑过]

执行代码后，图表数据是没经过筛选的。

不是这个地方的问题

此主题相关图片如下：qq图片20141206163724.png

能再具体指导一下吗，谢谢啦，我自己弄的还是出错。

.NET Framework 版本：2.0.50727.8009

Foxtable 版本：2014.11.11.1

错误所在事件：窗口,化验图表,Button1,Click

详细错误信息：

未将对象引用设置到对象的实例。

Dim Filter As String

With e.Form.Controls("ComboBox4")

If .Value IsNot Nothing Then

Filter = "血糖监测_时间段 = '" & .Value & "'"

End If

End With

If Filter > "" Then

Tables("血糖监测").Filter = Filter

End If

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.Text = "血糖监测_血糖值"

For i As Integer = 0 To t.Rows.Count - 1 '指定每个数据点的位置

Series.X(i) = t.Rows(i)("血糖监测_检测日期") '指定水平坐标

Series.Y(i) = t.Rows(i)("血糖监测_血糖值") '指定垂直坐标

Chart.AxisX.AnnoRotation = - 45 'X轴标示逆时针旋转45度

主题：筛选后生成图表的问题