主题：退出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