- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何实现“窗体中图表与表格联动”功能 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=145616)
-- 发布时间：2020/2/2 14:54:00
-- [求助]如何实现“窗体中图表与表格联动”功能
请大神赐教如何实现“窗体中图表与表格联动”功能：
如附图所示：窗体中上部为图表，下部为表格
单击图表中柱体时，表格中的数据自动实现相应筛选
此主题相关图片如下：窗体中图表区与表格区联动.png
此主题相关图片如下：窗体中图表区与表格区联动.png[此贴子已经被作者于2020/2/2 14:58:26编辑过]
-- 发布时间：2020/2/2 22:11:00
--
可以获取点击的图形的索引：http://www.foxtable.com/webhelp/topics/1012.htm
-- 发布时间：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