主题：[求助]小键盘右键略过锁定列

简单做一个，模拟按下Tab键。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:小键盘右移略过锁定列.table

 

 对事件加一个判断就行了……

If e.KeyCode = Keys.Tab OrElse e.KeyCode = Keys.Right Then

End If

 最后的代码。

Select Case e.KeyCode
    Case Keys.right, Keys.Tab
        If e.Table.colSel = e.Table.Cols.Count - 1 Then Return
        If e.Table.Cols(e.Table.colSel+1).AllowEdit = False Then
            Sendkeys.Send("{Tab}")
        End If
    Case Keys.left
        If e.Table.colSel = 0  Then Return
        If e.Table.Cols(e.Table.colSel-1).AllowEdit = False Then
            e.Table.Select(e.Table.RowSel, e.Table.colSel-1)
            Sendkeys.Send("{LEFT}")
        End If
End Select