以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于table里对非管理员需要显示***的问题。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=137764)

--  作者:ycwk
--  发布时间:2019/7/15 10:18:00
--  关于table里对非管理员需要显示***的问题。
本来在表里的drawcell事件里,用下面的代码使得帐户和密码对   非管理员或非所有者  显示为***,但是一用鼠标点击,明文就出来了,有什么好办法么?
Dim str As String =e.Row("管理员")  
If e.Col.Name = "密码" Or e.Col.Name="用户名" Then \'请改为实际列名
    If User.group <> "管理员" AndAlso  str.Contains(User.Name)=False  Then   \'如果不是服务器对应的管理员
        e.Text = "****" \'则修改显示内容
    End If
End If

--  作者:有点蓝
--  发布时间:2019/7/15 10:42:00
--  
锁定这一列,或者使用代码锁定单元格,不能进行编辑即可
--  作者:ycwk
--  发布时间:2019/7/15 10:47:00
--  
锁定后,用ctrl+c复制也可以复制到明文啊
--  作者:有点蓝
--  发布时间:2019/7/15 11:12:00
--  
把ctrl+c也屏蔽掉http://www.foxtable.com/webhelp/topics/1642.htm

If e.Control = True AndAlso e.KeyCode = keys.c Then
    e.cancel = True
End If