Aide vb.net et access

karimi94 Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
Kalissi Messages postés 218 Date d'inscription   Statut Membre Dernière intervention   -
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

Kalissi Messages postés 218 Date d'inscription   Statut Membre Dernière intervention   20
 
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
Kalissi Messages postés 218 Date d'inscription   Statut Membre Dernière intervention   20
 
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