以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  什么命令可以终止（跳过）后面所有代码？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=72649)
--  作者：zhchling
--  发布时间：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
--  发布时间：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 \'车费备注
--  作者：大红袍
--  发布时间：2015/8/4 0:25:00
--  

Return