以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]权限问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=48720)
--  作者：viking
--  发布时间：2014/4/3 16:56:00
--  [求助]权限问题
Dim g As DataRow = e.Row.DataRow.GetParentrow("利润单")
If User.Name  <> "业务负责"  Then    \'如果当前登陆不是业务负责时
    If g ("订单状态") = "1-新增订单"  Then  \'如果内容是"1-新增订单"
        e.Cancel =  True       \'禁止编辑
    End  If
End  If

 

 

这个业务负责本人用户编辑不了，看看怎么错的？谢谢
--  作者：Bin
--  发布时间：2014/4/3 16:58:00
--  
If g ("订单状态") = "1-新增订单"  Then   这个条件成立了吧
--  作者：viking
--  发布时间：2014/4/3 16:59:00
--  
以下是引用Bin在2014-4-3 16:58:00的发言：
If g ("订单状态") = "1-新增订单"  Then   这个条件成立了吧

这个应该没什么问题，其他的工作组权限也是这么写的，都没有问题。。。

 

下边这个都没有问题啊

Dim d As DataRow = e.Row.DataRow.GetParentrow("利润单")   \'如果当前表的父表"利润单"中的"订单状态"列中的内容等于"2-财务审核" 且登录用户不是"办公室"组成员时.那么锁定子表中的关联行
If User.Group <>  "办公室"  Then  \'且用户不是办公室
    If d("订单状态") = "2-财务审核"  Then
        e.cancel = True
    End If
End If

[此贴子已经被作者于2014-4-3 17:01:46编辑过]
--  作者：Bin
--  发布时间：2014/4/3 17:13:00
--  
调试一下,看看条件是否成立不就知道了
--  作者：狐狸爸爸
--  发布时间：2014/4/3 17:35:00
--  
搞不定，就做个小例子发上来。