老师您好!
我有一个权限设置,逻辑关系比较复杂,我弄了一个上午也没弄出来,请帮忙!谢谢!我的逻辑是,有三个逻辑列:校对、开piao否、开piao完结,有用户分组三个:综合主管、生产主管、订单业务员。校对列的权限是生产主管的,开piao否和开piao完结两列同时是综合主管的。问题是一旦勾选了校对和开piao否和开piao完结后,编号列是所有用户都能打开,如果到货日期和发货日期是空白,订单业务员和生产主管可以编辑。我的代码没有达到以上意图。请指教!
Select Case e.Col.name
Case "校对"
If e.Row("校对") = True
If User.Group <>"生产主管" Then
If e.Col.name="编号" Then
E.cancel=False
End If
If User.Group ="生产主管" Or User.Group ="订单业务员" Then
If e.Row.isnull("到货日期") Or e.Row.isnull("发货日期")
e.Cancel = False
End If
End If
End If
End If
Case "开piao否"
If User.Group="综合主管" Then
e.Cancel =False
ElseIf User.Group<>"综合主管" Then
e.Cancel =True
End If
If e.Col.name="编号" Then
E.cancel=False
Else If e.Row.isnull("到货日期") Or e.Row.isnull("发货日期") Then
If User.Group ="生产主管" Or User.Group ="订单业务员" Then
e.Cancel = False
End If
End If
Case "开piao完结"
If User.Group="综合主管" Then
e.Cancel =False
ElseIf User.Group<>"综合主管" Then
e.Cancel =True
End If
If e.Col.name="编号" Then
E.cancel=False
Else If e.Row.isnull("到货日期") Or e.Row.isnull("发货日期") Then
If User.Group ="生产主管" Or User.Group ="订单业务员" Then
e.Cancel = False
End If
End If
End Select