- 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=123081)
-- 发布时间：2018/8/7 16:26:00
-- [求助]多个备注列按选中单元格显示
拥有多个备注列，如何在列窗口中自动切换到显示选中单元格的内容
-- 发布时间：2018/8/7 16:42:00
--
click或者doubleclick代码
For Each a As OBJECT In e.Table.grid.Parent.controls
For Each b As OBJECT In a.controls
For Each c As OBJECT In b.controls
If c.text = e.Col.name Then
c.parent.SelectedTab = c
Return
End If
Next
Next
Next
-- 发布时间：2018/8/7 17:05:00
--
感谢版主这么神速的回复！我把代码复制进去
此主题相关图片如下：qq截图20180807170058.png
后，还是没反应，麻烦再帮忙看看
-- 发布时间：2018/8/7 17:20:00
--
加入红色代码，弹出什么？
For Each a As OBJECT In e.Table.grid.Parent.controls
For Each b As OBJECT In a.controls
For Each c As OBJECT In b.controls
msgbox(c.text & " " & e.col.name)
If c.text = e.Col.name Then
c.parent.SelectedTab = c
Return
End If
Next
Next
Next
-- 发布时间：2018/8/7 17:21:00
--
我测试没问题，上传实例说明。
-- 发布时间：2018/8/8 14:21:00
--
感谢版主！我测试了，结果依次显示所有的备注列名+当前选中单元格的列名；但是右侧的列表框中仍然无法显示选中的单元格内容；
此主题相关图片如下：截图0808.png
-- 发布时间：2018/8/8 14:31:00
--
If c.text = e.Col.name Then
改成
If c.text = e.Col.caption Then
-- 发布时间：2018/8/8 14:41:00
--
测试成功，十分感谢版主！