主题：条件满足 跳出遍历 取消保存动作 该怎么写 老师！

Dim no1 As String =Tables("xsckd").current("no")
Dim Filter As List(of DataRow)= DataTables("crmx").SQLSelect("no = 'no1'")
Dim drs = Tables("销售出货单_table1").Rows
For Each mm As Row In drs
    If mm IsNot Nothing Then
        Dim sum1 As Single=DataTables("crmx").Compute("Sum(sl)","[lydh] = '" & mm("lydh") & "'And [lyhh] = '" & mm("lyhh") & "'")
        Dim cc As DataRow=DataTables("saent").find("[no]='" & mm("lydh") & "'And [hh] = '" & mm("lyhh") & "'")
        If cc("sl")<sum1
            msgbox("超订单出货!!!")

？？？？？？

            cc("chsl")=sum1           
        End If
    End If
Next