If e.Col.name= "订单编号" Then
If e.Row("客服人员") <> User.Name Then '如果是其他用户,且业务员和登录用户名不同
messagebox.show( "我是好员工 一般不愿意帮别人 是吗?" ,"提示")
e.Cancel = True '则取消编辑
Else If e.Row("客服人员") = User.Name Then
If e.Row.isnull("接单日期")=False AndAlso e.Row.isnull("下单日期")=False AndAlso e.Row.isnull("客服备注")=False AndAlso e.Row.isnull("交货日期")=False AndAlso e.Row.isnull("发货地址")=False AndAlso e.Row.isnull("订单内容")=False AndAlso e.Row.isnull("材质")=False AndAlso e.Row.isnull("颜色")=False Then
e.Cancel = True '则取消编辑
messagebox.show( "接单,下单,交货日期,材质,颜色 订单内容,备注 发货地址不能为空" ,"提示" ) 为空也会打开对话框
Else
forms("订单明细").show
End If
End If
End If
我被自己绕晕了 求帮我重新编写下
加好友 
发短信
Post By：2015/6/2 14:28:00 [显示全部帖子]
