主题：退出for each

 For Each  dcs As DataCol  In DataTables("交换机").DataCols
            For Each drs As DataRow  In DataTables("交换机").DataRows
                Dim str1 As String = drs(dcs)
                Dim str2 As String = e.Row("主机_有线MAC")
                Dim b As Boolean = str1.Contains(str2)
                If b = True Then
                    dr("交换机_IP地址") = drs("交换机_IP地址")
                    dr("交换机_主机名") = drs("交换机_主机名")
                    dr("交换机_端口")=dcs.name  
             
 Exit For
                    Exit For
                Else
                    dr("交换机_主机名")=Nothing
                    dr("交换机_IP地址")=Nothing
                    dr("交换机_端口")=Nothing
                End If
            Next
           
        Next
请问当if b=true成立时 想要退出全部for each循环 如何加代码 用exit for试了几次不能完全退出

那只是退出了第一重循环,你这有2重循环呢   可以考虑使用return 不过后面的代码就全部不会执行了哦

能不能两次完全退出

你在同一个代码块内exit for两次没有用 上面一个执行后下面那个就没意义了.你可以使用一个变量 

Dim i As Integer = 0

For Each  dcs As DataCol  In DataTables("交换机").DataCols
      For Each drs As DataRow  In DataTables("交换机").DataRows
            Dim str1 As String = drs(dcs)
            Dim str2 As String = e.Row("主机_有线MAC")
            Dim b As Boolean = str1.Contains(str2)
            If b = True Then
                 dr("交换机_IP地址") = drs("交换机_IP地址")
                 dr("交换机_主机名") = drs("交换机_主机名")
                 dr("交换机_端口")=dcs.name 

                 i + = 1              
                 Exit For
            Else
                 dr("交换机_主机名")=Nothing
                 dr("交换机_IP地址")=Nothing
                 dr("交换机_端口")=Nothing
            End If
       Next

       If  i > 0 Then
           Exit For

       End If
Next

用整数比用逻辑，有个小小的优势：可以判断循环几次后退出，有时会有这种需求。

作用没区别，少写一次变量。

在通用筛选树的介绍中见过+=的格式，当时纯粹不明白，只是套用，在这儿见了，又测试了一下，结果一样。但还是没有理解这样写的意思，能介绍一下吗，以便今后的应用

比尔.盖茨，说：这样子简洁一点，写起来省力一些，看起来舒服一节。

他老前辈都说到这份上了，咱们还不该捧捧场么？