以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  有办法跳出循环后，不执行循环语句后面的语句吗？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=104359)
--  作者：xxfoxtable
--  发布时间：2017/7/27 20:48:00
--  有办法跳出循环后，不执行循环语句后面的语句吗？
有办法跳出循环后，不执行循环语句后面的语句吗？
--  作者：有点甜
--  发布时间：2017/7/27 22:41:00
--  

http://www.foxtable.com/webhelp/scr/0614.htm

 

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

 
--  作者：xxfoxtable
--  发布时间：2017/7/27 22:48:00
--  

        Dim txt2 As WinForm.TextBox = e.Form.Controls("TextBox2")
        For Each r As Row In Forms("产品档案").Controls("table1").Table.Rows
            Dim d2 As DataRow = DataTables("产品档案").Find("产品名称 = \'" & txt2.text & "\'")
            If d2 IsNot Nothing Then
                msgbox("产品名称重复,请重新输入")
               Exit For
                Return
            End If
        Next
       
        DataTables("产品档案").save
        msgbox("保存成功")
        DataTables("产品档案").Load
        e.Form.Close

跳出循环了，还执行下面保存语句，有更好的方法吗？
--  作者：有点甜
--  发布时间：2017/7/27 22:51:00
--  
Dim txt2 As WinForm.TextBox = e.Form.Controls("TextBox2")
        For Each r As Row In Forms("产品档案").Controls("table1").Table.Rows
            Dim d2 As DataRow = DataTables("产品档案").Find("产品名称 = \'" & txt2.text & "\'")
            If d2 IsNot Nothing Then
                msgbox("产品名称重复,请重新输入")
                Return
            End If
        Next
       
        DataTables("产品档案").save
        msgbox("保存成功")
        DataTables("产品档案").Load
        e.Form.Close