Проверка кода в петле не работает должным образом

Question

Я сделал код, способный загружать значения на веб-странице, и он работает хорошо. Поскольку значения берутся в режиме реального времени, то есть загрузка данных выполняется только тогда, когда есть фактические изменения, мне нужно, если определенное значение изменено. Затем я создал код, который позволяет мне проверять все элементы массива с обновленными значениями и массив со старыми значениями. Код действительно определяет, когда данный результат изменился, но по какой-то странной причине сообщение кажется бесконечным, как будто оно застряло в форе, которое не принимает аргументов, и это очень странно.

For Each abc As Country_Data In lista 
       For Each xyz As Country_Data In vecchia_lista 
        If abc.casa = xyz.casa And abc.ospite = xyz.ospite Then 
         If abc.Result <> xyz.Result Then 
          MsgBox(abc.casa & " - " & abc.ospite & " -- " & abc.Result) 
          Exit For 
         End If 
        End If 
       Next 
      Next 

Определение переменных

Dim lista As New List(Of Country_Data) 
    Dim vecchia_lista As New List(Of Country_Data) 
    Private Structure Country_Data 
     Dim casa As String 
     Dim ospite As String 
     Dim Result As String 
    End Structure 

, как это исправить?

Answer 1

Основываясь на ваших комментариях, я собираюсь, чтобы вы только когда-либо хотели видеть одно окно сообщения, когда оно обнаруживает первый случай, когда результат изменился (хотя после этого могли быть и другие).

Вы используете только выходы из внутренней петли For, и поэтому внешняя петля For продолжает цикл, что, вероятно, является тем, что вы наблюдаете.

Вы можете сделать что-то вроде этого:

Dim keepLooping As Boolean = True 

For Each abc As Country_Data In lista 
    For Each xyz As Country_Data In vecchia_lista 
     If abc.casa = xyz.casa And abc.ospite = xyz.ospite Then 
      If abc.Result <> xyz.Result Then 
       MsgBox(abc.casa & " - " & abc.ospite & " -- " & abc.Result) 
       keepLooping = False 
       Exit For 
      End If 
     End If 
    Next 

    If (Not keepLooping) Then Exit For 
Next 

Таким образом, если вы хотите, чтобы остановить цикл, он установит булев флаг и будет наблюдаться внешним контуром, заставляя его выход, а также.