e.Form.Controls("当前用户").Text = user.Namee.Form.Controls("所属分组").Text = user.group
If user.name = "开发者" Then Tables("购置申请管理").Filter = ""End If