保持列位置与列宽
我们可以将表的列位置和列宽调整好，并保存为一个表视图，然后在AfterOpenProject事件设置代码：
Tables(
"表名").OpenView("视图名")这样不管运行过程中用户如何调整列位置或列宽，只要重新打开项目，即可恢复正常的设置。
视图对于关联表也有效，例如：
Tables(
"订单.订单明细").OpenView("视图名")除了表视图外，也可以考虑用SetColVisibleWidth设置列位置与列宽 ，或者用AutoSizeCols方法自动调整列宽。
SetColVisibleWidth可以和GetColVisibleWidth配合使用，使得两个表的显示列、列位置和列宽和保持一致，例如：
Dim
cvs
As
String
=
Tables("订单").GetColVisibleWidth()
Tables("产品.订单").SetColVisibleWidth(cvs)
执行上述代码后，关联表Tables("产品.订单")的显示列、列位置和列宽将和主表Tables("订单")完全一致。