主题：录入窗口的权限

  下面的代码，你写到datacolchanging事件即可

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

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