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