utilisation de checklist

Question

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

cs_khalil2000 · Answer

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

Utilisation de checklist

1 réponse

Votre réponse

Discussions similaires