以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口权限设置  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=147881)

--  作者:15666282205
--  发布时间:2020/3/26 13:32:00
--  窗口权限设置
老师,以下代码是控制表如果不是登录人不能编辑,在窗口里怎么设置呢?我好像看过视频,请您再提示一下好吗

If e.Row("业务员") <> User.Name Then
    e.Cancel =
True
End If

还有,登录人不能删除其他人编辑的行,在窗口里怎样设置权限?


--  作者:cd_tdh
--  发布时间:2020/3/26 15:31:00
--  

1、窗口中在窗口的enter事件写代码

2、删除之前判断登录人和当前行的记录人是不是同一人么不是就不能删除。


--  作者:有点蓝
--  发布时间:2020/3/26 15:42:00
--  
参考:http://www.foxtable.com/webhelp/topics/2342.htm
--  作者:15666282205
--  发布时间:2020/3/29 16:59:00
--  
回答2楼的老师,删除之前判断,在表属性里我会设置,在窗口里我不会设置,请指导。
--  作者:有点蓝
--  发布时间:2020/3/29 21:25:00
--  
删除按钮

Dim r As Row = Tables("A").current
If r IsNot Nothing Then
    If r("业务员") <> User.Name Then
        msgbox("不能删除")
    Else
        r.delete
    End If
End If