Discussion :

[Roken62]

Bonjour,

J'ai un petit problème avec une petite procédure que j'ai écrite :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim i As Integer = 0
            For Each ligne In CB_NP_NomFrn.Items
                Dim TabNumFrn As Array = Split(CStr(ligne), ",")
                If TabNumFrn(1) = CBSociete.Text Then
                    CB_NP_NomFrn.SelectedIndex = i
                    Exit For
                End If
                i += 1
            Next

Cela me retourne l'erreur option strict sur ( TabNumFrn(1) ) soit la ligne 4.
Que dois-je faire pour l'enlever ? Sachant que ma procédure fonctionne sans l'option stricte.

Merci pour votre attention

[Rami]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim TabNumFrn As Array = Split(CStr(ligne), ",")

1- ne pas declarer un Array (non typé) puisque tu sais que tu as un tableau de chaine
2- tu peux aussi eviter de passer par Split() (tout court) qui viens de la bibliotheque de compatibilité VB6 me semble-t-il, et utiliser le .Split de la classe string a la place. (ca parait rien mais ca a son sens)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim TabNumFrn As String() = CStr(ligne).Split(CChar(","))

[Roken62]

Merci pour ta réponse !

Effectivement, maintenant que tu le dis c'est tout de suite beaucoup simple