共7 条记录, 每页显示 10 条, 页签: [1]

标题：[求助]一个针对于行数据显示的权限

1楼

ddlzq 发表于：2011/6/30 19:03:00

各位老师:

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

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

If User.Group = "经理" Then '如果是经理
Return '那么返回，正常显示数据
End If
If e.Col.Name = "密码" Then '如果正在绘制的是密码列
e.Text = "****" '那么用*代替原来的内容
End IF

2楼

狐狸爸爸 发表于：2011/6/30 19:31:00

可以

3楼

ddlzq 发表于：2011/6/30 19:38:00

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

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

不是要禁用复制粘贴功能吧?

4楼

狐狸爸爸 发表于：2011/6/30 19:38:00

是的，禁止。

最好隐藏此列

[此贴子已经被作者于2011-6-30 19:38:31编辑过]

5楼

ddlzq 发表于：2011/6/30 20:08:00

晕...记录窗口也能看到掩码数据...

6楼

ddlzq 发表于：2011/6/30 20:12:00

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

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

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

7楼

狐狸爸爸 发表于：2011/7/1 8:38:00

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

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

共7 条记录, 每页显示 10 条, 页签: [1]