主题：退出for each

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

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

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

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

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