以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]一个针对于行数据显示的权限  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=10942)
--  作者：ddlzq
--  发布时间：2011/6/30 19:03:00
--  [求助]一个针对于行数据显示的权限

各位老师:

DrawCell事件可以针对列显示数据

那么可不可以符合条件,将一行的值显示为掩码?

 

 

If User.Group = "经理" Then \'如果是经理
Return \'那么返回，正常显示数据
End If
If e.Col.Name = "密码" Then \'如果正在绘制的是密码列
e.Text = "****" \'那么用*代替原来的内容
End IF
--  作者：狐狸爸爸
--  发布时间：2011/6/30 19:31:00
--  
可以
--  作者：ddlzq
--  发布时间：2011/6/30 19:38:00
--  

If e.Row("姓名") = "总经理" Then
 e.Text = "****"
End If

 

狐爸,这个我搞出来了,以上是代码,但我怎么能让这个数据被复制贴出来时也是掩码呢?

不是要禁用复制粘贴功能吧?
--  作者：狐狸爸爸
--  发布时间：2011/6/30 19:38:00
--  

是的，禁止。

最好隐藏此列

[此贴子已经被作者于2011-6-30 19:38:31编辑过]
--  作者：ddlzq
--  发布时间：2011/6/30 20:08:00
--  
晕...记录窗口也能看到掩码数据...
--  作者：ddlzq
--  发布时间：2011/6/30 20:12:00
--  

 狐爸,看来只能加载数据时来控制不load了,我这么写对吗?

想屏蔽掉考核人=总经理的数据     

DataTables("绩效考核").LoadFilter ="[考核部门]=\'" & dr("部门") & "\' Or [被考核部门]=\'" & dr("部门")  And [考核人] <> \'"& "总经理" & "\'"
DataTables("绩效考核").Load()
--  作者：狐狸爸爸
--  发布时间：2011/7/1 8:38:00
--  

DataTables("绩效考核").LoadFilter ="([考核部门]=\'" & dr("部门") & "\' Or [被考核部门]=\'" & dr("部门")  & "\') And [考核人] <> \'"& "总经理" & "\'"

DataTables("绩效考核").Load()