关于表名、表列导出以及隐藏列的几个问题？

（1）隐藏列和取消隐藏列

此主题相关图片如下：1.bmp

   如上图：

       复选框未打对号的为隐藏列，我想达到如下要求，打开”取消隐藏列“

          1）开发者登录，该对话框所有列全部显示，

          2）管理员登录，不显示开发者不想让其他人知道的列，如，计算某一列设定的“过渡列”，如“时间”列等。“时间”列不显示

          3）员工登录，不需显示职工用不到的列，如“年”“月”“日”“时间”，管理员登录打开“取消隐藏列”窗口可显示“年”“月”“日”。

          4）或者再设定不同的分组显示不同的列。

          窗口所有列指窗口显示的列，不包括表的所有列。

（2）表、表列

   如上图：

   A)导出列

       通过复选框可以导出需要的列，我想达到如下要求，

          1）开发者登录，该对话框所有列全部显示，可以全部导出，也可选择导出部分列。

          2）管理员登录，不显示开发者不想让其他人知道的列，如，计算某一列设定的“过渡列”，如“时间”列等。“时间”列不显示，也就是管理员无法导出“时间列”，即使选择所有列，也无法导出“时间列”，因为窗口中不显示。

          3）员工登录，不需显示职工用不到的列，如“年”“月”“日”“时间”，管理员登录打开“取消隐藏列”窗口可显示，可导出，而员工登录不显示“年”“月”“日”“时间”列，导出列时也就无法导出，只能导出在窗口中显示的所有列，窗口中不显示列无法导出的。

          4）或者再设定不同的分组显示不同的列。

          窗口所有列指窗口显示的列，不包括表的所有列。

谢谢

如何达到显示的列打对号，不显示的列不打对号

 在 AfterLoad代码

Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each c As Col In CurrentTable.Cols   
           tv.Nodes.Add(c.Name)
Next
For Each nd As WinForm.TreeNode In tv.AllNodes
     For Each c As Col In CurrentTable.Cols \'排除隐藏列         
          If c.Visible  Then
              nd.Checked = True
          End If
    Next
Next

上述代码全部打对号

谢谢

上述代码执行后，全部不打对号

 
此主题相关图片如下：4.bmp

我想达到的是显示的列打对号，不显示的列不打对号