- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 读取图标X轴垂直坐标名称 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=104559)
-- 发布时间：2017/7/31 22:52:00
-- 读取图标X轴垂直坐标名称
此主题相关图片如下：图.png
你好！
单击图表X轴的PD01、PD02等任何一个，可弹窗显示对应产品的信息，也就是如何通过单击图的位置来读取对应X轴的垂直坐标名称
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Dim tbl As DataTable = DataTables("订单") \'定义一个变量tbl引用数据表
Dim lst As List(Of String) = tbl.GetValues("产品") \'获得产品名称集合
Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加一个图系
Series.Length = lst.Count \'设置图系的长度
For i As integer = 0 to lst.Count - 1 \'指定每个数据点的位置
Series.X(i) = i \'指定水平坐标
Series.Y(i) = tbl.Compute("Sum(数量)","[产品] = \'" & lst(i) & "\'") \'指定垂直坐标
Chart.AxisX.SetValueLabel(i, lst(i)) \'指定字符表示
Next
Chart.AxisX.AnnoWithLabels = True
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Dim tbl As DataTable = DataTables("订单") \'定义一个变量tbl引用数据表
Dim lst As List(Of String) = tbl.GetValues("产品") \'获得产品名称集合
Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加一个图系
Series.Length = lst.Count \'设置图系的长度
For i As integer = 0 to lst.Count - 1 \'指定每个数据点的位置
Series.X(i) = i \'指定水平坐标
Series.Y(i) = tbl.Compute("Sum(数量)","[产品] = \'" & lst(i) & "\'") \'指定垂直坐标
Chart.AxisX.SetValueLabel(i, lst(i)) \'指定字符表示
Next
Chart.AxisX.AnnoWithLabels = True
-- 发布时间：2017/7/31 23:16:00
--
参考:http://www.foxtable.com/webhelp/scr/1012.htm
自己把X的序号转换为相应的图示文字
-- 发布时间：2017/8/1 9:44:00
--
以下是引用cqlistone在2017/7/31 22:52:00的发言：
你好！
单击图表X轴的PD01、PD02等任何一个，可弹窗显示对应产品的信息，也就是如何通过单击图的位置来读取对应X轴的垂直坐标名称
做不到这样，你可以在右边放一个表格显示，点击表格的时候，再弹出具体信息。