1、
Dim s As String = Tables("表A").GetColVisibleWidth '获得列位置和宽度Tables("表A").SetColVisibleWidth(s) '恢复列位置和宽度
2、每次退出前用GetColVisibleWidth保存最后的列位置和宽度,在AfterOpenProject事件中恢复上次的列位置和宽度。