以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  能不能帮忙改下啊,现在报错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=171284)

--  作者:ycs5801
--  发布时间:2021/8/25 11:13:00
--  能不能帮忙改下啊,现在报错
Dim ctl As WinForm.Control = e.Sender
If User.group="业务组" Then
    If ctl.BindingField <> "主表.是否确认" Or "主表.是否完成" Then
        ctl.ReadOnly = BooleanEnum.True \'禁止编辑
    Else
        If 图片点击可在新窗口打开查看User.name=  Tables("主表").Current("登录人员")  Then
            ctl.ReadOnly = BooleanEnum.False \'允许编辑
        End If
    End If
End If
--  作者:有点蓝
--  发布时间:2021/8/25 11:23:00
--  
If ctl.BindingField <> "主表.是否确认" Or ctl.BindingField <> "主表.是否完成" Then
--  作者:ycs5801
--  发布时间:2021/8/25 11:30:00
--  
Dim ctl As WinForm.Control = e.Sender
If User.group="业务组" Then
    
    If ctl.BindingField <> "主表.是否确认" Or ctl.BindingField <> "主表.是否完成" Then
        ctl.ReadOnly = BooleanEnum.True \'禁止编辑
    Else
        If User.name=  Tables("主表").Current("发起部门")  Then
            ctl.ReadOnly = BooleanEnum.False \'允许编辑
        End If
    End If
End If

老师,按照您的改完。现在是否确认和是否完成还是无法修改。

--  作者:有点蓝
--  发布时间:2021/8/25 11:31:00
--  
要判断数据什么逻辑,使用文字说明
--  作者:ycs5801
--  发布时间:2021/8/25 11:55:00
--  
假如当前登录用户是在业务组群组里,假如是处理主表的是否确认和是否完成两个字段以外的字段,就禁止修改,如果是处理这两个字段,则判断是否是登录的用户名和表内的发起部门是否相同,不相同则禁止,相同则允许修改。
--  作者:有点蓝
--  发布时间:2021/8/25 12:10:00
--  
If ctl.BindingField <> "主表.是否确认" andalso ctl.BindingField <> "主表.是否完成" Then
--  作者:ycs5801
--  发布时间:2021/8/25 12:42:00
--  
按照这个改之后,所有的登录用户都可以修改这两个字段。
--  作者:ycs5801
--  发布时间:2021/8/25 12:53:00
--  
老师,后边我又加个了判断,可以了,你这技术确实高啊