主题：图表问题

 

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

 

示例二，

 

        For r As Integer = 0 To t.Rows.Count - 1
            Series.X(r) = r
            Series.Y(r) = t.Rows(r)(c.Name)
        Next

 

改成

 

For r As Integer = 0 To t.GetCheckedRows.count - 1
    Series.X(r) = r
    Series.Y(r) = t.GetCheckedRows(r)(c.Name)
Next

Series.Length = t.Rows.Count '设置图系的长度

 

改成

 

Series.Length = t.GetCheckedRows.count

 如果还有问题，做个实例上来。

哦，理解错你的意思了。

 

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("表AA") '定义一个变量t引用数据表
Dim dt As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")
Dim ls As new List(Of String)
If dt.Text = "" Then
    For Each c As Col In t.Cols
        If c.name <> "开标日期" Then        ls.add(c.name)
    Next
Else
    ls.AddRange( dt.text.Split(","))
End If
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
chart.AxisX.ClearValueLabel
Chart.SeriesList.Clear() '清除图表原来的图系
t.sort = "开标日期"
For Each c As String In ls
    Series = Chart.SeriesList.Add() '增加一个图系
    Series.Text = c '设置图系的标题
    Series.Length = t.Rows.Count '设置图系的长度
    For r As Integer = 0 To t.Rows.Count - 1
        Series.X(r) = r
        Series.Y(r) = t.Rows(r)(c)
    Next
    Series.FitType = FitTypeEnum.Spline  '采用平滑线条
Next
For r As Integer = 0 To t.Rows.Count - 1
    Chart.AxisX.SetValueLabel(r, Format(t.Rows(r)("开标日期"),"MM-dd")) '指定字符表示
Next
Chart.AxisX.AnnoWithLabels = True '启用字符标示
'Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)
Chart.AxisX.AnnoRotation = - 45 'X轴标示逆时针旋转45度

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("代理投标测算_Table1") '定义一个变量t引用数据表
Dim dt As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")
Dim ls As new List(Of String)
If dt.Text = "" Then
    For Each c As Col In t.Cols
        If c.name <> "开标日期" Then
            ls.add(c.name)
        End If
    Next
Else
    ls.AddRange( dt.text.Split(","))
End If
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
chart.AxisX.ClearValueLabel
Chart.SeriesList.Clear() '清除图表原来的图系
t.sort = "开标日期"
For Each c As String In ls
    Series = Chart.SeriesList.Add() '增加一个图系
    Series.Text = c '设置图系的标题
    Series.Length = t.Rows.Count '设置图系的长度
    Dim pval As Double = 0
    For r As Integer = 0 To t.Rows.Count - 1
        If t.Rows(r)(c) = 0 Then
            For i As Integer = r+1 To t.Rows.count-1
                If t.Rows(i)(c) > 0 Then
                    Series.X(r) = r
                    pval= pval+(t.rows(i)(c)-pval)/(i-r+1)
                    Series.Y(r) = Round2(pval * 100,2)
                    Exit For
                End If
            Next
        Else
            pval = t.Rows(r)(c)
            Series.X(r) = r
            Series.Y(r) = Round2(pval * 100,2)
        End If
    Next
    Series.FitType = FitTypeEnum.Spline  '采用平滑线条
Next
For r As Integer = 0 To t.Rows.Count - 1
    Chart.AxisX.SetValueLabel(r, Format(t.Rows(r)("开标日期"),"MM-dd")) '指定字符表示
Next
Chart.AxisX.AnnoWithLabels = True '启用字符标示
'Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)
Chart.AxisX.AnnoRotation = - 45 'X轴标示逆时针旋转45度
Series.DataLabelText = "{#YVAL}%" '数据标示
Chart.AxisX.AnnoFormatString = "00.0%" '设置坐标轴的标示格式符号,指定日期标示格式