主题：表中显示 ****号的单元格，在窗口中如何继承？

如图 用 冼开京 用户登录

表中第二行 成本单价 显示 ****** （该用户为业务员，如果是业务员就显示*****）

但是 点击第二行 的产品名称 弹出窗口，却不显示星号，而是显示了真实成本，如何解决？

此主题相关图片如下：204.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:复件 儋州琼富塑料管理系统1.0.table

DrawCell事件不仅用于标记数据，还可以用他“篡改”数据。
假定有一名为“密码”的列，要求只有经理级别的用户才能查看该列的数据，其他人查看的时候，看到的只是"****"。
实现的代码也非常简单，在该表的DrawCell事件中输入：

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

在窗口中将此控件的.Visible属性设置为False，或者用另一个只有**的控件遮住这个文本框，方法很多。

还可以看看:

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

可是在窗口中呢？

1. 增加一个文本框TextBox5,其初始值为:"*****"

2.在窗口的AfterLoad事件中加以下代码就可以解决

If User.Group <> "财务部" Then

    e.Form.Controls("TextBox9").Visible = False
    e.Form.Controls("TextBox5").Visible = True
   
Else
    e.Form.Controls("TextBox9").Visible =True
    e.Form.Controls("TextBox5").Visible = True
   
End If