Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共2 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

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

1楼
xuxingbo 发表于: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楼
有点蓝 发表于:2024/3/15 14:24:00
没看出有什么问题,请上传实例测试
共2 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03516 s, 2 queries.