参考代码
Dim t As Table = Tables("表A")vars("aaa") = t.getColVisibleWidtht.AutoSizeCols
还原
Dim t As Table = Tables("表A")
t.SetColVisibleWidth(vars("aaa"))