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

统计生成合计值，年是空的，自然就有问题

......

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

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

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

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

For Each Year As String In DataTables("中标测评_Table1").GetValues("年","年 is not null")

Series = Chart.SeriesList.Add() '每年一个图系

Series.Text = Year '指定图系名称为年份

Series.Length = 12 '指定图系的数据点数,1年12个月

Chart.AxisX.Min = 1 '指定X轴的最小值,也就是从1月开始

Chart.AxisX.Max = 12 ''指定X轴的最大值,一年只有12个月

For Month As Integer = 1 To 12 '逐月设置坐标

Chart.AxisX.AnnoFormatString = "0月"

Series.X(Month) = Month '指定水平坐标为月份

Dim r As DataRow = DataTables("中标测评_Table1").Find("年 = " & Year & " And 月 = " & Month & "") '找出对应年月的行

If r IsNot Nothing '如果找到对应年月的行

Series.Y(Month) = r("中标频度") '指定数量作为垂直坐标

Series.DataLabelText = "{#YVAL}"

End If

'Chart.BarClusterWidth = 90

Chart.LegendVisible = True '显示图列

主题：and 缺少运算符问题