以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  帮忙看下权限设置问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=31924)
--  作者：jiskin
--  发布时间：2013/4/23 10:14:00
--  帮忙看下权限设置问题


图片点击可在新窗口打开查看此主题相关图片如下：google.png
图片点击可在新窗口打开查看

 

如图，我按照帮助文档做了可视化权限设定，但我想按图上所示 分组=表名  权限=对应表的列名 只有对应的用户有权限查看和修改此列~

不知道如何写相关代码，帮忙下吧
--  作者：Bin
--  发布时间：2013/4/23 10:23:00
--  
在ALterOpenPprject中循环生成进度表所有列.
For Each tc As Col In Tables("生产进度表").Cols
     If tc.Name="XX" Then \'判断列名
      tc.Visible=False   \'执行对应操作
    End If

Next
--  作者：jiskin
--  发布时间：2013/4/23 10:55:00
--  
以下是引用Bin在2013-4-23 10:23:00的发言：
在ALterOpenPprject中循环生成进度表所有列.
For Each tc As Col In Tables("生产进度表").Cols
     If tc.Name="XX" Then \'判断列名
      tc.Visible=False   \'执行对应操作
    End If

Next

 

还有对应的权限呢？
--  作者：Bin
--  发布时间：2013/4/23 10:56:00
--  
在ALterOpenPprject中循环生成进度表所有列.
For Each tc As Col In Tables("生产进度表").Cols
     If tc.Name <> 权限 Then \'判断列名不等于权限名称
      tc.Visible=False   \'执行对应操作
    End If

Next
--  作者：jiskin
--  发布时间：2013/4/23 11:59:00
--  
以下是引用Bin在2013-4-23 10:56:00的发言：
在ALterOpenPprject中循环生成进度表所有列.
For Each tc As Col In Tables("生产进度表").Cols
     If tc.Name <> 权限 Then \'判断列名不等于权限名称
      tc.Visible=False   \'执行对应操作
    End If

Next

这样肯定不对的，你肯定误解我意思了

我是需要权限列对应的用户或组有权限编辑和查看
--  作者：Bin
--  发布时间：2013/4/23 12:04:00
--  
哦 那也差不多的 LoadUserSeting中
For Each tc As Col In Tables("生产进度表").Cols
     If tc.Name <> 权限 Then \'判断列名不等于该用户对应权限名称
      tc.Visible=False   就隐藏该列,或者你可以设为锁定
    End If
Next
--  作者：jiskin
--  发布时间：2013/4/23 13:09:00
--  
以下是引用Bin在2013-4-23 12:04:00的发言：
哦 那也差不多的 LoadUserSeting中
For Each tc As Col In Tables("生产进度表").Cols
     If tc.Name <> 权限 Then \'判断列名不等于该用户对应权限名称
      tc.Visible=False   就隐藏该列,或者你可以设为锁定
    End If
Next

 If tc.Name <> 权限 Then \'判断列名不等于该用户对应权限名称

这一段能详细点吗