我在系统菜单里面 先筛选后生成图表,一切正常
执行以下代码后,生成的图表是没有筛选过的。
通过以下代码就出错了,各位老师帮心看一下,哪里不对。谢谢了
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编辑过]