- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 录入窗口与权限 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=58438)
-- 发布时间：2014/10/16 17:18:00
-- 录入窗口与权限
录入窗口与权限:如何指定用户编辑不同的列
此主题相关图片如下：001.jpg
-- 发布时间：2014/10/16 17:22:00
--
帮助中的文件如何改？
Dim ctl As WinForm.Control = e.Sender
Select Case ctl.BindingField
Case "表A.第一列", "表A.第二列", "表A.第三列"
If User.Name = "张三" Then ？？？？？？？？？？
ctl.ReadOnly = BooleanEnum.False \'允许编辑
Else
ctl.ReadOnly = BooleanEnum.True \'禁止编辑
End If
Case "表A.第四列", "表A.第五列", "表A.第六列"
If User.Name = "李四" Then
ctl.ReadOnly = BooleanEnum.False \'允许编辑
Else
ctl.ReadOnly = BooleanEnum.True \'禁止编辑
End If
End Select
-- 发布时间：2014/10/16 17:26:00
--
If User.Name = e.Form.Controls("发送人").Text Then
或者
If User.Name = Tables("表A").Current("发送人") Then
-- 发布时间：2014/10/16 17:27:00
--
If User.Name = tables(X).current("发件人") Then
ctl.ReadOnly = BooleanEnum.False \'允许编辑
Else
ctl.ReadOnly = BooleanEnum.True \'禁止编辑
End If