1、记录之前的点 vars("point") = Tables("表A").ScrollPosition
2、在AfterScroll写代码 e.Table.ScrollPosition = vars("point")