主题：[求助]多个备注列按选中单元格显示

拥有多个备注列，如何在列窗口中自动切换到显示选中单元格的内容

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

感谢版主这么神速的回复！我把代码复制进去
此主题相关图片如下：qq截图20180807170058.png

后，还是没反应，麻烦再帮忙看看

加入红色代码，弹出什么？

 

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

我测试没问题，上传实例说明。

感谢版主！我测试了，结果依次显示所有的备注列名+当前选中单元格的列名；但是右侧的列表框中仍然无法显示选中的单元格内容；我的QQ：335986997，麻烦版主远程帮忙看看，谢谢
此主题相关图片如下：截图0808.png

If c.text = e.Col.name Then

 

改成

 

If c.text = e.Col.caption Then

测试成功，十分感谢版主！