以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  条件满足 跳出遍历 取消保存动作 该怎么写 老师！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122378)
--  作者：visoni
--  发布时间：2018/7/24 11:07:00
--  条件满足 跳出遍历 取消保存动作 该怎么写 老师！

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
--  作者：有点甜
--  发布时间：2018/7/24 11:20:00
--  

参考 http://www.foxtable.com/webhelp/scr/0225.htm