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

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

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

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

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

If c.text = e.Col.name Then

改成

If c.text = e.Col.caption Then