以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=17708)

--  作者:SZDVYE
--  发布时间:2012/3/21 23:09:00
--  请教

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

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

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

 

请教是什么原因,如何才可以实现?


--  作者:mr725
--  发布时间:2012/3/21 23:16:00
--  

发项目上来帮你测试


--  作者:SZDVYE
--  发布时间:2012/3/21 23:52:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:客户联系表.table


--  作者:mr725
--  发布时间:2012/3/22 0:24:00
--  

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

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

[此贴子已经被作者于2012-3-22 0:30:21编辑过]

--  作者:狐狸爸爸
--  发布时间:2012/3/22 8:25:00
--  

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

 

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

    Case Else

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

 

2、按照mr725兄说的设置。


--  作者:SZDVYE
--  发布时间:2012/3/22 13:05:00
--  

灰常感谢狐狸爸爸和mr725兄。问题已经解决。图片点击可在新窗口打开查看