Как решить коды после цикла, которые не выполняются в vb.net?

Question

У меня есть этот код под моего Form_Load

checkUser = False 
    MsgBox("test start") 
    result = Newtonsoft.Json.JsonConvert.DeserializeObject(Of ArrayList)(getJSon("https://dtitdtr.herokuapp.com/employees")) 
    MsgBox("test after result before for-each") 
    For Each value As Object In result 
     token = JObject.Parse(value.ToString()) 
     id = token.SelectToken("id") 
     fname = token.SelectToken("fname") 
     mname = token.SelectToken("mname") 
     lname = token.SelectToken("lname") 
     contact = token.SelectToken("contactno") 
     add = token.SelectToken("address") 
     user = token.SelectToken("username") 
     pass = token.SeelectToken("password") 
     If user.ToString().ToUpper().Equals(GetUName()) Then 
      checkUser = True 
      Exit For 
     Else 
      checkUser = False 
     End If 
    Next value 
    MsgBox("test after next value") 
    reader.Close() 
    response.Close() 

и когда я запускаю программу, то первые два (2) окно сообщений отображается и последняя, ​​что после следующего значения, не будет отображаться ,

Я не совсем понимаю, что происходит; с тех пор, как вчера, когда я запустил его, все прошло отлично, и теперь после добавления кодов для информация об обновлении, которая не должна влиять на form_load, , коды справа после цикла не будут выполняться. В чем проблема с этим?

я получил что-то here что говорит «исключение бросают», но я даже не попробовать поймать в моем коде.

Answer 1

Надеюсь, что ваш код выбрасывает Exception внутри For, поэтому я предлагаю вам включить Try.. Catch получить сведения об исключении. что поможет вам обнаружить проблему.

 Try 
      For Each value As Object In result 
       token = JObject.Parse(value.ToString()) 
       id = token.SelectToken("id") 
       fname = token.SelectToken("fname") 
       mname = token.SelectToken("mname") 
       lname = token.SelectToken("lname") 
       contact = token.SelectToken("contactno") 
       add = token.SelectToken("address") 
       user = token.SelectToken("username") 
       pass = token.SeelectToken("password") 
       If user.ToString().ToUpper().Equals(GetUName()) Then 
        checkUser = True 
        Exit For 
       Else 
        checkUser = False 
       End If 
      Next value 
      MsgBox("test after next value") 
      reader.Close() 
      response.Close() 
     Catch ex As Exception 
      MsgBox("Exception :" & ex.ToString) 
     End Try