Foxtable(狐表)用户栏目专家坐堂 → 什么命令可以终止(跳过)后面所有代码?


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

主题:什么命令可以终止(跳过)后面所有代码?

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


加好友 发短信
等级:小狐 帖子:385 积分:3893 威望:0 精华:0 注册:2012/2/9 20:09:00
什么命令可以终止(跳过)后面所有代码?  发帖心情 Post By:2015/8/3 22:56:00 [只看该作者]

 If e.Form.Controls("textboxbeizhu").value="" Then  '如果住宿备注里有内容,就清除掉内容

messagesbox.show("没有选中任何有车费的行程")

终止命令   ‘跳过后面所有代码

Else
    e.Form.Controls("textboxbeizhu").value=""
End If
Dim  chefeiheji As Integer   '应收款
Dim chefeibeizhu As String '车费备注

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


加好友 发短信
等级:幼狐 帖子:145 积分:946 威望:0 精华:0 注册:2015/4/18 20:22:00
  发帖心情 Post By:2015/8/3 23:06:00 [只看该作者]

Return语句用于终止代码的执行,如果需要,还可以返回值。

例如:

Dim Sum As Integer
Dim
i As Integer
For
i = 1 To 100
   
If i = 51 Then '如果i等于51
        Return Sum
'终止执行,并返回值
   
End If
    Sum = Sum + i

Next

提示,在命令窗口中使用Return时,必须返回一个值,而用于事件代码时,没有这个限制。


If e.Form.Controls("textboxbeizhu").value="" Then  '如果住宿备注里有内容,就清除掉内容

messagesbox.show("没有选中任何有车费的行程")

Return   ‘跳过后面所有代码


Else
    e.Form.Controls("textboxbeizhu").value=""
End If
Dim  chefeiheji As Integer   '应收款
Dim chefeibeizhu As String '车费备注


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/4 0:25:00 [只看该作者]

Return


 回到顶部