主题：[求助]

 

我按下面方法做了，当用户是张经理时，可以实现上面功能。当用户是其它人时，以前已经结帐的行还可以编辑啊，怎么回事啊

 

 

1、将订单表的DataRowAdding事件设置为：

e.DataRow("业务员") = User.name

这样新增订单的时候，会自动在业务员列填入当前登录用户名。

2、最后将订单表的PrepareEdit事件设置为：

If User.Name = "张经理" Then '如果是张经理
    If e.Row("结账") = True Then '此订单已经结账
        Dim tv As Date = e.Row("日期")，
        Dim tp As TimeSpan = Date.Today - tv
        If tp.TotalDays >= 10 Then '如果订单已经超过10天
            e.Cancel = True '则取消编辑
        End If
    End If
ElseIf e.Row("业务员") <> User.Name Then '如果是其他用户,且业务员和登录用户名不同
    e.Cancel = True '则取消编辑
End If

 

看看你是不是用了自定义用户！

用户都是自己输入的啊

ElseIf e.Row("业务员") <> User.Name Then 

这样不行啊，其他用户都不能编辑了

你不是让其他人不能编辑么?你是想怎么样?

我是想让以前10天（或一段时间）的行只要是已经结帐了，无论什么人（除了经理）也不能再编辑了。现在这代码结果是，用户还能编辑自己录入的行，无论时间多长，怎么解决啊？

2、最后将订单表的PrepareEdit事件设置为：
If User.Name <> "张经理" Then '如果不是张经理
    If e.Row("结账") = True Then '此订单已经结账
        Dim tv As Date = e.Row("日期"),
        Dim tp As TimeSpan = Date.Today - tv
        If tp.TotalDays >= 10 Then '如果订单已经超过10天
            e.Cancel = True '则取消编辑
        ElseIf e.Row("业务员") <> User.Name Then '如果订单没有超过10天，但为其他用户,且业务员和登录用户名不同
            e.Cancel = True '则取消编辑
        End If
    ElseIf e.Row("业务员") <> User.Name Then '如果订单没有结账，但为其他用户,且业务员和登录用户名不同
        e.Cancel = True '则取消编辑
    End If
End If

 

这样试试

 你这样写代码

 

If User.Name = "张经理" Then '如果是张经理
   
ElseIf e.Row("业务员") <> User.Name Then '如果是其他用户,且业务员和登录用户名不同
    e.Cancel = True '则取消编辑
End If

If e.Row("结账") = True Then '此订单已经结账
    Dim tv As Date = e.Row("日期"),
    Dim tp As TimeSpan = Date.Today - tv
    If tp.TotalDays >= 10 Then '如果订单已经超过10天
        e.Cancel = True '则取消编辑
    End If
End If

谢谢有点甜，很好用啊，我真笨，呵呵。