主题：[求助]录入窗口权限问题

参考代码

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