以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]do loop语句不需要whie?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=47170)
--  作者：737182811
--  发布时间：2014/3/5 17:46:00
--  [求助]do loop语句不需要whie?

这个do loop 语句怎么没有while或者until啊？


增加分类按钮的代码：

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim i As Integer
trv.Select()
Do
    i = i+ 1
    Dim nm As String = "分组" & i
    If trv.Nodes.Contains(nm) = False
        Dim dr As DataRow = DataTables("授权").AddNew
        Dim nd As WinForm.TreeNode = trv.Nodes.Add(nm)
        dr("分组") = nm
        trv.SelectedNode = nd
        trv.BeginEdit
        Exit Do
    End If
Loop
--  作者：Bin
--  发布时间：2014/3/5 17:48:00
--  
不需要.
--  作者：737182811
--  发布时间：2014/3/5 18:20:00
--  

Do...Loop语句

Do...Loop语句比For...Next语句更加灵活，因为它既可以在循环的开始，也可以在循环的结尾测试条件。

Do...Loop语句有两种形式，分别为：

Do While 条件
    代码
Loop

和：

Do
    代码
Loop While 条件
--  作者：e-png
--  发布时间：2014/3/5 21:50:00
--  

这里有了Exit Do
--  作者：737182811
--  发布时间：2014/3/16 21:33:00
--  
谢谢