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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  图表问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77326)

--  作者：douglas738888
--  发布时间：2015/11/16 16:05:00
--  图表问题

老师指导下下，下面代码部分数据无法连接图表线条，所形成的表列是按以下布局的
月日订单金额
8 5 200
8 10 500
9 1 600
9 3 300
10 2 400
... ...
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.SeriesList.Clear() \'清除图表原来的图系
\'For Each Day As String In DataTables("订单套系曲线_Table1").GetValues("月")
Series = Chart.SeriesList.Add() \'每年一个图系
\'Series.Text = Day
Series.Length = 31
Chart.AxisX.Min = 1
Chart.AxisX.Max = 31
For Day As Integer = 1 To 31 \'逐月设置坐标
Series.X(Day) = Day
Dim r As DataRow = DataTables("订单套系曲线_Table1").Find("月 = " & Day)\'找出对应日的行
If r IsNot Nothing \'如果找到对应日的行
Series.Y(Day) = r("订单金额") \'指定数量作为垂直坐标
End If
Next
\'Next

--  作者：大红袍
--  发布时间：2015/11/16 16:09:00
--

试试，不行上传例子

Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'每年一个图系
Series.Length = 31
Chart.AxisX.Min = 1
Chart.AxisX.Max = 31
For Day As Integer = 1 To 31 \'逐月设置坐标
    Series.X(Day) = Day
    Dim r As DataRow = DataTables("订单套系曲线_Table1").Find("月 = 8 and 日 = " & Day)\'找出对应日的行
    If r IsNot Nothing \'如果找到对应日的行
        Series.Y(Day) = r("订单金额") \'指定数量作为垂直坐标

    Else

        Series.Y(Day) = 0
    End If
Next