滚动表后执行。
e参数属性:
Table: 引发事件的Table
AfterScroll事件一般和ScrollPosition(见 [标题编号])属性一起配合使用。
示例
假定希望在表A滚动后,表B能同步滚动到相同的位置,只需将表A的AfterScroll事件代码设置为:
Tables("表B").ScrollPosition =e.Table.ScrollPosition
如果要求垂直方向同步滚动,水平方向不同步滚动,代码为:
Dim p As Point ="表B").ScrollPosition
p.Y =Table.ScrollPosition.Y
Tables("表B").ScrollPosition =p