主题：列恢复

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

 

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("列宽"))

 

 

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

 

 

代码可以把隐藏的列全部显示出来，这个没错，还有一个就是我想把我已经移动过的列也进行恢复

 

我的移动代码为：

 

'-----------------------------下移--------------------------
If CurrentTable.Position <> CurrentTable.Rows.Count Then
   
    Dim tmpLM As String    '列名
    Dim tmpXY As Boolean    '显隐
    Dim tmpKD As String     '宽度
    Dim tmpXH As Integer   '序号
   
    Dim cu As Row = CurrentTable.Current
    Dim ne As Row = CurrentTable.Rows(CurrentTable.Current.Index + 1)
   
    tmpLM = ne("列名")
    TMPXY = nE("显隐")
    TMPKD = nE("列宽度")
    TMPXH = nE("序号")
   
    ne("列名") = cu("列名")
    ne("显隐") = cu("显隐")
    ne("列宽度") = cu("列宽度")
    ne("序号") = cu("序号")
   
    cu("列名") = tmplm
    cu("显隐") = tmpxy
    cu("列宽度") = tmpkd
    cu("序号") = tmpxh
   
    CurrentTable.Position = CurrentTable.Position +1
   
End If

 

 

是这样的，打开的时候只是查看内容，但可以移动、显隐并保存，再想每次重新打开项目的时候则恢复我原来的样子，

 

如果项目发布后可以把他的个人设置的风格保存到他的电脑上就好了，不用每次都进来设置