Aide vb.net et access

Bonjour,

j'un problème avec le code suivant il exécute les deux instructions on même temps

for i=0 to dt.rows.count -1
if dt.rows(i).item("CIN").valuetostring=textbox1.text
message.show("deja existe")
else
form2.show
end if
next i

j'ai essayer avec i=i+1 et avec exit for avant else mais quand if is true ils faire if et else on même temps

2 réponses

  1. Bonjour,

    Je ferais comme ceci !

    If (Not (String.IsNullOrEmpty(tbx_Entree.Text))) Then
    Dim Limite As Int32 = dt.Rows.Count - 1
    For i = 0 To Limite
    If dt.Rows(i).Item("CIN").ToString = tbx_Entree.Text Then
    MessageBox.Show("deja existe")
    Exit For
    Else
    form2.show()
    End If
    Next i
    End If

    K
    0
    1. Re:

      Corrigé et testé :

      If (Not (String.IsNullOrEmpty(tbx_Entree.Text))) Then
      Dim Limite As Int32 = dt.Rows.Count - 1
      For i = 0 To Limite
      If dt.Rows(i).Item("Mot").ToString = tbx_Entree.Text Then
      MessageBox.Show(String.Format("{0}{1}{2}", "deja existe", " - i = ", i))
      Exit For
      Else
      Form2.ShowDialog()
      End If
      Next i
      End If

      K
      0