以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  图表的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135249)
--  作者：rjh4078
--  发布时间：2019/5/21 19:21:00
--  图表的问题

Dim s As Integer \'定义存储图系编号的变量
Dim p As Integer \'定义存储数据点编号的变量
Dim Chart As WinForm.Chart = Forms("窗口1").Controls("Chart1") \'获得Chart对象的引用
If Chart.CoordToDataIndex(e.x, e.y ,s ,p) Then \'如果鼠标位置存在有效的图序和数据点
    Dim Series As WinForm.ChartSeries = Chart.SeriesList(s) \'获得鼠标位置的图序
    Dim msg as string
    msg = "单击的是第" & (s+1) & "个图系的第" & (p+1) & "个数据点，该点的值为 "
    msg = msg & "(X = " & Series.X(p) & ", Y = " & Series.Y(p) & ")"
    Messagebox.Show(msg)
End If


如果我将图表绑定到了客户和他的销售额，现在希望点击的时候返回客户编号 要怎么设置
--  作者：有点蓝
--  发布时间：2019/5/21 20:14:00
--  
根据p的值到生成图表的table里取值，像使用下面这种方式生成图表的，如p=5，就是table里第6行：t.Rows(p)("客户")


Series.Length = t.Rows.Count \'图系的数据点数等于表的行数
For i As integer = 0 to t.Rows.Count - 1 \'指定每个数据点的位置
    Series.X(i) = t.Rows(i)("月份") \'指定水平坐标
    Series.Y(i) = t.Rows(i)("数量") \'指定垂直坐标
Next
[此贴子已经被作者于2019/5/21 20:14:31编辑过]
--  作者：rjh4078
--  发布时间：2019/5/21 21:21:00
--  
收到
--  作者：rjh4078
--  发布时间：2019/5/25 9:31:00
--  
现在的问题是 我的图表是绑定到列的 不是按二楼的方式生成的 怎么办
--  作者：有点蓝
--  发布时间：2019/5/25 9:40:00
--  
没有办法的。要么就不要绑定，改为按二楼的方式生成