黄色代码是不是写错了，测试没有起作用，明明报价申请里面存在报价编号ID和报价单的订单编号相等，后面的代码还是执行了
当报价单的订单编号在报价申请里面的报价编号ID中不存在时再执行后面的语句
For Each ar As Row In Tables("报价申请").rows
Dim nr = DataTables("报价单").find("订单编号='" & ar("报价编号ID") & "'")
If nr Is Nothing Then
If Tables("报价单").current("款号") = Nothing Then
If Tables("报价单").current("研发部_总监审核") <>"研发-总监" Then
If usna Like "*研发*" Or usna="admin" Then
Tables("报价单").current("订单编号")=Tables("报价申请").current("报价编号ID")
Else
MessageBox.show("你无权执行此项操作!")
End If
End If
Tables("报价单").save()
Tables("报价申请").save()
Else
MessageBox.show("不能覆盖现有报价!")
End If
End If
Next
加好友 
发短信
Post By：2018/8/18 17:26:00 [显示全部帖子]
此主题相关图片如下：111.png