主题：[求助]

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

这样试试