[求助]如何实现“窗体中图表与表格联动”功能 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何实现“窗体中图表与表格联动”功能

共有3807人关注过本帖树形打印复制链接主题：[求助]如何实现“窗体中图表与表格联动”功能

xiangyushi

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

等级：幼狐帖子：124 积分：1359 威望：0 精华：0 注册：2012/4/26 16:40:00

[求助]如何实现“窗体中图表与表格联动”功能 发帖心情

Post By：2020/2/2 14:54:00 [只看该作者]

请大神赐教如何实现“窗体中图表与表格联动”功能：

如附图所示：

窗体中上部为图表，下部为表格

单击图表中柱体时，表格中的数据自动实现相应筛选

此主题相关图片如下：窗体中图表区与表格区联动.png

[此贴子已经被作者于2020/2/2 14:58:26编辑过]

有点蓝

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

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

Post By：2020/2/2 22:11:00 [只看该作者]

xiangyushi

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

等级：幼狐帖子：124 积分：1359 威望：0 精华：0 注册：2012/4/26 16:40:00

Post By：2020/2/3 21:41:00 [只看该作者]

谢谢有点蓝，按你说的测试成功！

Dim s As Integer '定义存储图系编号的变量

Dim p As Integer '定义存储数据点编号的变量

Dim Chart As WinForm.Chart = Forms("生成图表").Controls("Chart1") '获得Chart对象的引用

If Chart.CoordToDataIndex(e.x, e.y ,s ,p) Then '如果鼠标位置存在有效的图序和数据点

Dim Series As WinForm.ChartSeries = Chart.SeriesList(s) '获得鼠标位置的图序

Dim pd As String = "PD0" & p+1 'pd为代表产品型号的变量

Tables("生成图表_Table1").Filter = "产品 = '" & pd & "'" '在窗体表中对产品型号进行筛选

End If

主题：[求助]如何实现“窗体中图表与表格联动”功能