主题：图表问题

老师你好：

 

需求：我想通过复选组合框选择的值，来生成图系，如何处理，有没有前辈们做过类似的项目，请指点一下，谢谢

 

我一个表

 

此主题相关图片如下：ttt.png

 

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

有点色老师：

 

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("表AA") '定义一个变量t引用数据表
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
'Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
Chart.SeriesList.Clear() '清除图表原来的图系
For Each c As Col In t.Cols
    If c.Name <> "开标日期" Then
        Series = Chart.SeriesList.Add() '增加一个图系
        Series.Text = c.Name '设置图系的标题
        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.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.FitType = FitTypeEnum.Spline  '采用平滑线条
    End If
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.Length = t.Rows.Count '设置图系的长度

 

改成

 

Series.Length = t.GetCheckedRows.count

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

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

点击浏览该文件:图表管理项目1.table

有点色老师帮我改一下，谢谢

哦，理解错你的意思了。

 

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度

有点色老师你好：

如何取消Y值为空值的点，而直接连接，使线条平滑，谢谢！！！

 

此主题相关图片如下：aabb.png

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 '设置图系的长度
    For r As Integer = 0 To t.Rows.Count - 1
        Series.X(r) = r
        Series.Y(r) = Round2(t.Rows(r)(c) * 100,2)
    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%" '设置坐标轴的标示格式符号,指定日期标示格式

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

点击浏览该文件:图表管理项目1.table