Utilisation de checklist

cs_khalil2000 Messages postés 8 Date d'inscription vendredi 1 décembre 2006 Statut Membre Dernière intervention 3 juin 2007 - 24 mai 2007 à 16:30
cs_khalil2000 Messages postés 8 Date d'inscription vendredi 1 décembre 2006 Statut Membre Dernière intervention 3 juin 2007 - 24 mai 2007 à 17:02
salut tous le monde j ai un probleme lors de l'utlisation de checklist  lorsque je coche mais chois et j'apuis sur bouton ajouter pour ajouter mes  chois aaux base de donner un erreur se produit voila l'erreur:
Index was out of range. Must be non-negative and less than the size of the collection.
Parameter name: index
 

voila le code :
 For I = 0 To outils.Items.Count
            If outils.Items(I).Selected = True Then
                ch12 = outils.Items(I).Value
                com10.CommandText =
                          "inset into     utilise_outilsNUMVERSION,IDOUTILS)VALUES ('" & ch6 & "','" & ch12 & "')"
            End If



        Next
 le probleme est aux debut de boucle for

1 réponse

cs_khalil2000 Messages postés 8 Date d'inscription vendredi 1 décembre 2006 Statut Membre Dernière intervention 3 juin 2007
24 mai 2007 à 17:02
merci pour vous j'ai trouver la solution et la voila:

 I = 0
        While I <> outils.Items.Count
            If outils.Items(I).Selected = True Then
                ch12 = outils.Items(I).Value
                com10.CommandText = "inset into utilise_outils (NUMVERSION,IDOUTILS) VALUES ('" & ch6 & "','" & ch12 & "')"
            End If
            I = I + 1
        End While
0