主题：列恢复

我用代码设置了原来的列顺序和显隐，代码为：

 

Dim tmp As String = ""
For Each r As Row In Tables("设置").Rows
    If r("显隐") =True Then
       tmp = tmp & r("列名") & "|" & r("列宽度") & "|"
    End If
Next
tmp =tmp.Trim("|")

Tables("列宽").Current("列宽") = tmp
e.Form.Close

Tables("出差申请表").SetColVisibleWidth(Tables("列宽").Current("列宽"))

 

 

我想关闭后再打开项目则恢复原来的显示状态，应该怎么做？