主题：[求助]关于图表生成的数据源

如果坐标叠加，各自纵坐标，就不会吧起伏抹平了。

Dim dic1 As new SortedDictionary(Of Date, Double)
Dim dic2 As new SortedDictionary(Of Date, Double)
For Each r As Row In e.Form.controls("Table数据").Table.Rows
    If r.IsNull("date") = False Then
        If dic1.ContainsKey(r("date")) = False Then
            dic1.add(r("date"), r("value"))
        End If
        dic2.add(r("date"), 0)
    End If
Next
For Each r As Row In e.Form.controls("Table1").Table.Rows
    If r.IsNull("date") = False Then
        If dic1.ContainsKey(r("date")) = False Then
            dic1.add(r("date"), 0)
        End If
        If dic2.ContainsKey(r("date")) = False Then
            dic2.add(r("date"), r("value"))
        Else
            dic2(r("date")) = r("value")
        End If
    End If
Next

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
Chart.SeriesList2.Clear
Chart.AxisX.ClearValueLabel

Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = dic1.Count '设置图系的长度
Dim i As Integer = 0
For Each key As Date In dic1.keys
    Series.X(i) = i '指定水平坐标
    Series.Y(i) = dic1(key) '指定垂直坐标
    Chart.AxisX.SetValueLabel(i, format(key, "yyyy-MM-dd")) '指定字符表示
    i += 1
Next

Series = Chart.SeriesList2.Add() '增加一个图系
Series.Length = dic2.Count '设置图系的长度
i = 0
For Each key As Date In dic2.keys
    Series.X(i) = i '指定水平坐标
    Series.Y(i) = dic2(key) '指定垂直坐标
    Chart.AxisX.SetValueLabel(i, format(key, "yyyy-MM-dd")) '指定字符表示
    i += 1
Next

Chart.AxisX.AnnoRotation = -45
Chart.AxisX.AnnoWithLabels = True '启用字符标示

 

http://www.foxtable.com/webhelp/scr/0971.htm

 

用了两个图系，出现日期纵坐标 叠加现象，不知何故？

Dim dic1 As new SortedDictionary(Of Date, Double)
Dim dic2 As new SortedDictionary(Of Date, Double)
For Each r As Row In e.Form.controls("Table数据").Table.Rows
    If r.IsNull("date") = False Then
        If dic1.ContainsKey(r("date")) = False Then
            dic1.add(r("date"), r("value"))
            dic2.add(r("date"), 0)
        End If
    End If
Next
For Each r As Row In e.Form.controls("Table1").Table.Rows
    If r.IsNull("date") = False Then
        If dic1.ContainsKey(r("date")) = False Then
            dic1.add(r("date"), 0)
        End If
        If dic2.ContainsKey(r("date")) = False Then
            dic2.add(r("date"), r("value"))
        Else
            dic2(r("date")) = r("value")
        End If
    End If
Next

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
Chart.SeriesList2.Clear
Chart.AxisX.ClearValueLabel

Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = dic1.Count '设置图系的长度
Dim i As Integer = 0
For Each key As Date In dic1.keys
    Series.X(i) = i '指定水平坐标
    Series.Y(i) = dic1(key) '指定垂直坐标
    Chart.AxisX.SetValueLabel(i, format(key, "yyyy-MM-dd")) '指定字符表示
    i += 1
Next

Chart.AxisX.ClearValueLabel
Series = Chart.SeriesList2.Add() '增加一个图系
Series.Length = dic2.Count '设置图系的长度
i = 0
For Each key As Date In dic2.keys
    Series.X(i) = i '指定水平坐标
    Series.Y(i) = dic2(key) '指定垂直坐标
    Chart.AxisX.SetValueLabel(i, format(key, "yyyy-MM-dd")) '指定字符表示
    i += 1
Next

Chart.AxisX.AnnoRotation = -45
Chart.AxisX.AnnoWithLabels = True '启用字符标示

 

 

 

加了     dic2.add(r("date"), 0)  后就会出现很多 0 值，导致锯齿状曲线

把 dic2.add(r("date"), 0) 注释掉就好了。但是出现新情况

是 Chart.AxisX.ClearValueLabel 的原因吗？
 

第二条曲线，那一天没有数据自然赋值为0，不然你希望怎么做？

不是指值，而是横坐标没了？

必须用34楼的代码，不然横坐标无法匹配。

 

36楼的问题，你可以去掉代码 Chart.AxisX.ClearValueLabel

理解老师的意思，就是其中一曲线有缺失值，只能用0替代，以统一坐标，但是可否不用0 ，而用空值，即这段曲线就不显示，即为断续曲线？