主题：备注栏窗口随着鼠标点击表格不同列的切换而切换

我找到图1所示代码，说是能解决这个问题。

但是，当我把代码复制到表格的click事件里，并没有达到预期效果。

图1：

此主题相关图片如下：img_20231115_221833.jpg

图2：

此主题相关图片如下：img_20231115_221900.jpg

2.您为什么加了上面的那句话，就可以了？

于是，我想把代码复制粘贴到afterselchange事件里，但是不管用。

因为原来代码看不懂，keydown事件里的e参数跟click又不一样……

 谢谢版主的回复。

1.我试了代码，发现有个问题，就是一按左箭头，“选中列”会向右移动两行（即，会暗中跳过一行）。

2.我学习了下您写的代码，试了试，发现即使在空表里，也存在上面这个问题。

问题描述在下面代码里以注释形式出现，您可以把下面代码复制到空项目的keydown事件里，然后在空表里按左键头，即可发现问题。

如下：

Dim idx As Integer = -1
'假如，按下左箭头之前，当前选中单元格是第6行第4列（列脚标是3）
Select Case e.KeyCode
    Case Keys.Left
        MessageBox.Show("current col1:" & e.Table.ColSel) '输出结果=3
        If e.Table.ColSel > 0 Then '3>0
            idx = e.Table.ColSel - 1
            e.Table.Select(e.Table.RowSel, idx) '从显示可以看出，此时第6行第3列单元格被高亮选中
            MessageBox.Show("current col2:" & e.Table.ColSel) '输出结果=2
            '问题：上面对话框显示完2，表格会再向左选中左边的单元格，相当于向左移动了两次（但ColSel只减了一个1）。

        End If
    Case Keys.Right
        If e.Table.ColSel < e.Table.Cols.Count - 1 Then
            idx = e.Table.ColSel + 1
            e.Table.Select(e.Table.RowSel, idx)
        End If
End Select