图表的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 图表的问题

共有2401人关注过本帖树形打印复制链接主题：图表的问题

rjh4078

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3370 积分：24858 威望：0 精华：0 注册：2012/3/26 21:47:00

图表的问题

Post By：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

如果我将图表绑定到了客户和他的销售额，现在希望点击的时候返回客户编号要怎么设置

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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编辑过]