AfterSelRangeChange 事件
If e.Table.TopPosition<e.Table.Current.Index Then
e.Table.Current.Move(e.Table.TopPosition)
Else
e.Table.Current.Move(e.Table.BottomPosition)
End If
他要的是这个吧,也是冰的代码