以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  导出excel  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=73192)

--  作者:wymoonwalker
--  发布时间:2015/8/14 9:20:00
--  导出excel
表中A列我设置权限,甲登陆后可见其内容,乙登陆后见到的是···
乙用户将此表导出excel后,A列信息全部显示出来了
请问这是怎么回事?

--  作者:大红袍
--  发布时间:2015/8/14 9:22:00
--  

你用什么设置可见?筛选?filter?改成用LoadFilter和Load

 

http://www.foxtable.com/help/topics/2256.htm

 


--  作者:wymoonwalker
--  发布时间:2015/8/14 9:47:00
--  
drawcell事件
If e.Col.Name = "用户名" Then 
    If User.Group <> e.Row("联系单位") AndAlso User.Group<> "市场部"  Then 
        e.Text = "***" 
    End If
End If
If e.Col.Name = "密码" Then 
    If User.Group <> e.Row("联系单位") AndAlso User.Group<> "市场部"  Then 
        e.Text = "***" 
    End If
End If

--  作者:大红袍
--  发布时间:2015/8/14 9:59:00
--  

加两列 用户名1、密码1,导出的时候,导出此两列。

 

drawcell事件


If e.Col.Name = "用户名1" Then
    If User.Group <> e.Row("联系单位") AndAlso User.Group<> "市场部"  Then
        e.Text = "***"
    Else
        e.Text = e.Row("用户名")
    End If
End If
If e.Col.Name = "密码1" Then
    If User.Group <> e.Row("联系单位") AndAlso User.Group<> "市场部"  Then
        e.Text = "***"
    Else
        e.Text = e.Row("密码")
    End If
End If


--  作者:wymoonwalker
--  发布时间:2015/8/14 10:21:00
--  
红袍,我原先的设置具体是这样的。
每个用户录入自己的行,但整个表的内容对所有用户公开可见。只有“用户名”和“密码”两列对自己录入的行可见,对其他人录入的行显示为"***"。上述代码已经满足了这个要求。
但某个用户今天导出excel表时发现了这个bug,就是导出后的excel表是个全部信息的表,并未将其他用户的用户名和密码列显示为“***"”或留白,而是完整信息。
我希望用户导出的excel表与软件中的表可见列完全一致。即原先可见的内容显示,原先不可见的内容屏蔽或留白。

您的代码我测试了,不是我想要的意思呢


--  作者:大红袍
--  发布时间:2015/8/14 10:27:00
--  
加两列显示,隐藏密码列和用户列,导出的时候,不要导出密码列和用户列啊。
--  作者:wymoonwalker
--  发布时间:2015/8/14 10:42:00
--  
刚才未隐藏原先的两列,有点乱了。隐藏后系统显示的与原先一致,很正常。
可是导出后的excel表,用户名与密码两列都没有内容,无论是录入单位登陆还是管理者登陆,导出的表这两列都空白呀

--  作者:大红袍
--  发布时间:2015/8/14 11:02:00
--  

 比较麻烦,看例子

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:混淆数据例子.table


--  作者:wymoonwalker
--  发布时间:2015/8/14 11:15:00
--  
谢谢红袍,就是想要这种效果。
没想到设置起来要这么麻烦。

--  作者:xbx
--  发布时间:2019/10/1 13:38:00
--  
谢谢老师