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