Dim Chart As WinForm.Chart
Dim Series As WinForm.ChartSeries
Chart= Forms("Chart").Controls("Chart1")
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = Tables("销售排行榜").Rows.Count
Series.MarkShape= MarkShapeEnum.Diamond
Series.MarkColor = Color.Red
Series.LinePattern = LinePatternEnum.None
For i As Integer = 0 To Tables("销售排行榜").Rows.Count - 1
Tables("销售排行榜").Position = i
Series.X(i) = Tables("销售排行榜").Current("努力度评分")
Series.Y(i) = Tables("销售排行榜").Current("销售金额")
Series.DataLabelText = Tables("销售排行榜").Current("员工") ’数据标示识最后一列的数字,如何逐个显示
Next
此主题相关图片如下:散点图.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2016-12/2016121613171014111.png)
各位老师好,如上图,我需要绘制一个散点图,每个业务员根据努力度X与销售金额Y形成一个坐标,每个坐标都要显示各自的名字,但是我这里设置后,怎么每个坐标的显示一样的,如果我希望每个坐标的数据标示都显示为对应销售员的名字,该如何做,谢谢?