Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart = e.Form.Controls("Chart2") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
For Each Year As String In DataTables("电动机绝缘及直阻测试记录").GetValues("年")
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 '逐月设置坐标
Series.X(Month - 1) = Month '指定水平坐标为月份
Dim r As DataRow = DataTables("电动机绝缘及直阻测试记录").Find(" 年= " & Year & " And 月 = " & Month & "") '找出对应年月的行
If r IsNot Nothing Then'如果找到对应年月的行
MessageBox.Show(3)
Series.Y(Month - 1) = r("绝缘电阻2") '指定数量作为垂直坐标
End If
Next
Next
Chart.LegendVisible = True '显示图列
Chart.LegendCompass = CompassEnum.South '图列显示在南方(底端)
请问这个红色的代码问题在哪?
运算错误,提示“AND”运算符前缺少操作数