调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm
dr = CurrentTable.DataTable.find("客户_编号 = '" & dr5("客户编号") & "' and 订单日期 < '" & Date.Today & "' and 调度操作_订单结果 = '成功' ","订单日期 desc")
If dr IsNot Nothing Then
msgbox(1) ‘能不能弹出提示
Dim dr50 As String = "202020220"
msgbox(dr50)
Dim d1 As Date = dr("订单日期")
Dim d2 As Date = Date.Today
Dim t As TimeSpan = d2-d1
If t.TotalDays < 60 Then
msgbox(“TotalDays=” & t.TotalDays) ‘能不能弹出提示
If dr("客服类型_主客服") <> user.name Then
msgbox(“主客服=” & dr("客服类型_主客服")) ‘能不能弹出提示
Dim dr100 As DataRow = CurrentTable.DataTable.find("客户_编号 = '" & dr5("客户编号") & "' and 订单日期 < '" & Date.Today & "' and 调度操作_订单结果 = '成功' and 价格收款_单位 = 'YZ'","订单日期 desc")
If dr100 Is Nothing Then
msgbox(2) ‘能不能弹出提示
MessageBox.Show("对不起,其它客服60天专属保护期内客户不能安排,请提交申请批准后方可安排!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
dr5.Reject()
r.Reject()
e.Form.close()
Return
Else
msgbox(3) ‘能不能弹出提示
If dr100("客服类型_主客服") <> user.name Then
msgbox(“dr100主客服=” & dr100("客服类型_主客服"))‘能不能弹出提示
MessageBox.Show("对不起,其它客服60天专属保护期内客户不能安排,请提交申请批准后方可安排!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
dr5.Reject()
r.Reject()
e.Form.close()
Return
加好友 
发短信
Post By：2020/12/24 9:20:00 [显示全部帖子]
