以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]图表绘制的自定义数据标示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=94138)
--  作者：atmetmicoo
--  发布时间：2016/12/16 13:28:00
--  [求助]图表绘制的自定义数据标示
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
图片点击可在新窗口打开查看

各位老师好，如上图，我需要绘制一个散点图，每个业务员根据努力度X与销售金额Y形成一个坐标，每个坐标都要显示各自的名字，但是我这里设置后，怎么每个坐标的显示一样的，如果我希望每个坐标的数据标示都显示为对应销售员的名字，该如何做，谢谢？
--  作者：atmetmicoo
--  发布时间：2016/12/16 14:21:00
--  
等到高手图片点击可在新窗口打开查看
--  作者：狐狸爸爸
--  发布时间：2016/12/16 14:53:00
--  
 Series.DataLabelText  = Tables("销售排行榜").Current("员工") ’数据标示识最后一列的数字，如何逐个显示
改为

 Series.DataLabelText  = Tables("销售排行榜").Rows(i)("员工")
--  作者：atmetmicoo
--  发布时间：2016/12/16 15:21:00
--  
以下是引用狐狸爸爸在2016/12/16 14:53:00的发言：
 Series.DataLabelText  = Tables("销售排行榜").Current("员工") ’数据标示识最后一列的数字，如何逐个显示
改为

 Series.DataLabelText  = Tables("销售排行榜").Rows(i)("员工")

谢谢狐爸，还是没有任何改变，结果一样的。
--  作者：狐狸爸爸
--  发布时间：2016/12/16 15:34:00
--  
暂时没有办法
--  作者：atmetmicoo
--  发布时间：2016/12/16 16:05:00
--  
以下是引用狐狸爸爸在2016/12/16 15:34:00的发言：
暂时没有办法

那我先用替代办法，谢谢狐爸
--  作者：逛逛
--  发布时间：2016/12/17 13:46:00
--  


以下内容只有回复后才可以浏览
--  作者：kgdce
--  发布时间：2016/12/17 15:15:00
--  
看看
--  作者：gua12gua
--  发布时间：2016/12/17 21:35:00
--  
ddddddddd
--  作者：有点色
--  发布时间：2016/12/18 9:23:00
--  

看看