老师，
以下代码在执行过程中出现如图错误，如何让它不提示，谢谢。Dim int As Integer = 0
For Each r11 As Row In Tables("PriceNew.Pricelist").rows
Dim fr As DataRow = DataTables("PriceNew").Find("Status ='新增' and FItemID=" & r11("FItemID1") & "")
If r11("FPrioritized") = True And fr("Priority") = False
'For Each r As Row In Tables ("ConfirmList")
'If r("FUsed") = True
int = int+1
End If
Next
If Int = 0
msgbox (" ...必须要指定一个优先供应商 !!!")
Else
xxx
xxx
xxx
End If
此主题相关图片如下：捕获.png
[此贴子已经被作者于2021/4/17 15:23:07编辑过]
加好友 
发短信
Post By：2021/4/17 15:21:00 [显示全部帖子]
