以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]录入窗口权限问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129198)
--  作者：jiangnanwuyang
--  发布时间：2018/12/23 23:59:00
--  [求助]录入窗口权限问题
双击一行数据后，当发起人为登录用户的话，负责人的内容不能被编辑；当负责人为登录用户的，发起人内容不能被编辑。看帮助里面是将每一个用户都分好能否编辑，现在是我打开窗口后才知道我是发起人还是负责人。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb
--  作者：有点甜
--  发布时间：2018/12/24 8:55:00
--  

参考代码

 

Dim Filter As String
Dim st As String = e.Form.Controls("发起人").BindingField
Dim uname As String = Tables(st.Split(".")(0)).current(st.Split(".")(1))
msgbox(uname)
If uname = User.Name Then
    e.Form.Controls("发起内容").Visible=False
    e.Form.Controls("负责人内容").Visible=True
End If