Foxtable(狐表)用户栏目专家坐堂 → 有办法跳出循环后,不执行循环语句后面的语句吗?


  共有1687人关注过本帖树形打印复制链接

主题:有办法跳出循环后,不执行循环语句后面的语句吗?

帅哥哟,离线,有人找我吗?
xxfoxtable
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1696 积分:15819 威望:0 精华:0 注册:2017/6/1 23:12:00
有办法跳出循环后,不执行循环语句后面的语句吗?  发帖心情 Post By:2017/7/27 20:48:00 [只看该作者]

有办法跳出循环后,不执行循环语句后面的语句吗?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/27 22:41:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
xxfoxtable
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1696 积分:15819 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By: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

跳出循环了,还执行下面保存语句,有更好的方法吗?


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 回到顶部