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

 

折线图可以根据数据直接生成，不一定需要绑定一个表的。

 

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

 

1、你要根据什么数据生成图表？

 

2、做个具体的例子发上来看看。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目888.table

 你的列，为什么不改成 日期列 ？

 

Chart.AxisX.SetValueLabel(i, format(cDate(t.Rows(i)("time")), "yyyy-MM-dd")) '指定字符表示

Dim t As Table = e.Form.Controls("Tablelablist").Table '定义一个变量t引用数据表
t.sort = "time DESC"

 

 做个具体的实例上传上来测试。

 你是在属性里面设置的，还是写代码设置的？如果改成 where 1=2 呢？

 做个例子发上来，需要合并两表数据后生成。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目888 (1) (1).table

 

 没看懂，这个意思？

 

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.AxisX.ClearValueLabel
Dim dics() = {dic1, dic2}
Dim arys() As Integer = {0, 50}
For j As Integer = 0 To dics.length-1
    Dim dic = dics(j)
    Dim n As Integer = arys(j)
    Series = Chart.SeriesList.Add() '增加一个图系
    Series.Length = dic.Count '设置图系的长度
    Dim i As Integer = 0
    For Each key As Date In dic.keys
        Series.X(i) = i '指定水平坐标
        Series.Y(i) = dic(key) + n '指定垂直坐标
        Chart.AxisX.SetValueLabel(i, format(key, "yyyy-MM-dd")) '指定字符表示
        i += 1
    Next
Next
Chart.AxisX.AnnoRotation = -45
Chart.AxisX.AnnoWithLabels = True '启用字符标示