主题：请教

已制作“客户档案”和“业务角色”，两个表做了关联

1、让不同用户查看不同的表设置，在AfteOpenProject事件中设置代码：

Select Case User.Name
    Case "操作部经理","操作部","行政部"
        Tables("业务角色").Visible = False
End Select

 

但是在也用用户名进入运行后，没有任何反应。请问是不是要发布了才可以实现。不是的话，如何才可以实现功能？

 

2、记录重要数据的编辑人和编辑时间，

在AfterEdit事件中设置代码：

If e.Col.Name = "一类_电话" Then
    e.Row("Log") = User.Name & " " & Date.Now
End If

并在PrepareEdit

If e.Col.Name = "Log" Then
    e.Cancel = True
End If

但是用用户名进入，改动"一类_电话"，并没有出出现改变数据的记录

 

请教是什么原因，如何才可以实现？

发项目上来帮你测试

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

点击浏览该文件:客户联系表.table

1、 说明清楚些，没看懂···可能你该用：User.Group

2。代码要放在表属性的表事件中，不是项目属性的全局表事件。

1、没错，应该用UserGroup，如果中途要求换用户，应该设置在LoadUserSetting事件，代码改为：

 

Select Case User.Name
    Case "操作部经理","操作部","行政部"
         Tables("业务角色").Visible = False

    Case Else

        Tables("业务角色").Visible = True
End Select

 

2、按照mr725兄说的设置。

灰常感谢狐狸爸爸和mr725兄。问题已经解决。