主题：有办法跳出循环后，不执行循环语句后面的语句吗？

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

 

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

 

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