Foxtable(狐表)用户栏目专家坐堂 → [求助]关于生成图表的问题


  共有1137人关注过本帖树形打印复制链接

主题:[求助]关于生成图表的问题

帅哥哟,离线,有人找我吗?
xuxingbo
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:81 积分:979 威望:0 精华:0 注册:2017/11/19 21:02:00
[求助]关于生成图表的问题  发帖心情 Post By:2024/3/15 14:11:00 [只看该作者]

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”运算符前缺少操作数


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110495 积分:562359 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/15 14:24:00 [只看该作者]

没看出有什么问题,请上传实例测试

 回到顶部