主题：图表数据标示---示例+疑问

示例中2011的数据标示.

那么2010或更多条曲线数据标示怎么标?

每条曲线的线型和标示点大小怎么设置呢?

 

Dim Chart As WinForm.Chart
Dim Series As WinForm.ChartSeries
Chart= e.Form.Controls("Chart1")
Chart.SeriesList.Clear()
Dim nms() As Integer ={ "1","2","3","4","5","6","7","8","8","10","11","12"}
For Each r As Row In Tables("foxtext").Rows
    Series = Chart.SeriesList.Add()
    series.Text = r("年份")
    Series.Length = nms.length
    For i As Integer = 0 To nms.Length - 1
        Series.X(i) = i
        Series.Y(i) = r(nms(i))
    Next
Next
For i As Integer = 0 To nms.Length - 1
    Chart.AxisX.SetValueLabel(i,nms(i))
Next
Chart.AxisX.AnnoRotation =  25
Series.TooltipText = "Y = {#YVAL}"   ' 此处的数据标示,只标出2011的标示,2010或由动态生成的曲线怎么标示呢?
Series.MarkShape = MarkShapeEnum.Dot
Chart.AxisX.AnnoWithLabels = True
Chart.LegendVisible = True
Chart.VisualEffect = True
Chart.SeriesList(0).FitType = FitTypeEnum.Spline
Chart.SeriesList(1).FitType = FitTypeEnum.Spline ' 假如有多条曲线,而且是动态生成.那线型应该怎么定义呢?
Chart.LegendVisible = True
series.marksize= 3
Chart.LegendCompass= CompassEnum.South
MainTable = Tables("foxtext")
MainTable.Font = New Font("宋体",10,FontStyle.Regular)

 

 

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

点击浏览该文件:foxtext.zip

1、不管多少条线都一样的。

2、修改表示点大小：

http://www.foxtable.com/help/topics/1044.htm

 

Dim Chart As WinForm.Chart
Dim Series As WinForm.ChartSeries
Chart= e.Form.Controls("Chart1")
Chart.SeriesList.Clear()
Dim nms() As Integer ={ "1","2","3","4","5","6","7","8","8","10","11","12"}
For Each r As Row In Tables("foxtext").Rows
    Series = Chart.SeriesList.Add()
    series.marksize= 3
    series.Text = r("年份")
    Series.Length = nms.length
    For i As Integer = 0 To nms.Length - 1
        Series.X(i) = i
        Series.Y(i) = r(nms(i))
    Next
Next
For i As Integer = 0 To nms.Length - 1
    Chart.AxisX.SetValueLabel(i,nms(i))
Next
Chart.AxisX.AnnoRotation =  25
Series.TooltipText = "Y = {#YVAL}"   ' 此处的数据标示,只标出2011的标示,2010或由动态生成的曲线怎么标示呢?
Series.MarkShape = MarkShapeEnum.Dot
Chart.AxisX.AnnoWithLabels = True
Chart.LegendVisible = True
Chart.VisualEffect = True
Chart.SeriesList(0).FitType = FitTypeEnum.Spline
Chart.SeriesList(1).FitType = FitTypeEnum.Spline ' 假如有多条曲线,而且是动态生成.那线型应该怎么定义呢?
Chart.LegendVisible = True
Chart.LegendCompass= CompassEnum.South
MainTable = Tables("foxtext")
MainTable.Font = New Font("宋体",10,FontStyle.Regular)

Series.TooltipText = "Y = {#YVAL}"   ' 此处的数据标示,只标出2011的标示,2010或由动态生成的曲线怎么标示呢?
Chart.SeriesList(0).FitType = FitTypeEnum.Spline
Chart.SeriesList(1).FitType = FitTypeEnum.Spline ' 假如有多条曲线,而且是动态生成.那线型应该怎么定义呢?

 

2010年的曲线还是没有标示...

Dim Chart As WinForm.Chart
Dim Series As WinForm.ChartSeries
Chart= e.Form.Controls("Chart1")
Chart.SeriesList.Clear()
Dim nms() As Integer ={ "1","2","3","4","5","6","7","8","8","10","11","12"}
For Each r As Row In Tables("foxtext").Rows
    Series = Chart.SeriesList.Add()
    series.marksize= 3
    Series.FitType = FitTypeEnum.Spline
    Series.TooltipText = "Y = {#YVAL}"
    series.Text = r("年份")
    Series.Length = nms.length
    For i As Integer = 0 To nms.Length - 1
        Series.X(i) = i
        Series.Y(i) = r(nms(i))
    Next
Next
For i As Integer = 0 To nms.Length - 1
    Chart.AxisX.SetValueLabel(i,nms(i))
Next
Chart.AxisX.AnnoRotation =  25
Series.TooltipText = "Y = {#YVAL}"   ' 此处的数据标示,只标出2011的标示,2010或由动态生成的曲线怎么标示呢?
Series.MarkShape = MarkShapeEnum.Dot
Chart.AxisX.AnnoWithLabels = True
Chart.LegendVisible = True
Chart.VisualEffect = True
Chart.LegendVisible = True
Chart.LegendCompass= CompassEnum.South
MainTable = Tables("foxtext")
MainTable.Font = New Font("宋体",10,FontStyle.Regular)

谢谢,
源数据有小数位的时候,数据标示失真(有的被四舍五入了).