Problème de variable ?Résolu

Question

Bonjour à toutes et tous.

Je commence tout juste à développer en .net et j'ai encore quelques difficultés de compréhension.

Je dispose d'une "liste" dans Sharepoint qui me fait office de bdd et je souhaites récolter quelques informations.
Pour ce faire, voici mon code :

'Sélection de la famille en fonction tarif choisi
 If Lstb_TarifCoupe.SelectedItem.Text =  "Tarif A : Truc" Then
    SelectFamille = "Famille1"
 ElseIf Lstb_TarifCoupe.SelectedItem.Text = "Tarif B : Machin" Then
    SelectFamille = "Famille2"
 End If
 
 'On récupère les valeur de la liste (ou table) "ListeNuances"
 ListeCible = Web.Lists("ListeNuances")
 RechNuance()



'Recherche les nuances de la liste
Sub RechNuance()

            '********************************************************
            '*              Création de la liste Nuance             *
            '********************************************************

   Str_TitreDoc = ""
   Colonne = ListeCible.Items

   'Implémentation de la listbox Nuance
   For Each Ligne In Colonne
           Str_TitreDoc = Ligne("Nuance").ToString()
           Lstb_Nuances.Items.Add(Str_TitreDoc)     
   Next
            
 End Sub
A ce stade je récupère donc toutes les données comprises dans la colonne  Nuance  de ListeNuances (normal me direz-vous). Mais je souhaites filtrer ces données en fonction d'une seconde colonne nommée "Famille". J'ai donc effectué quelques modifications que voici :

'Recherche les nuances de la liste
Sub RechNuance()

            '********************************************************
            '*              Création de la liste Nuance             *
            '********************************************************

   Str_TitreDoc  = ""
   Colonne = ListeCible.Items

   'Implémentation de la listbox Nuance
   For Each Ligne In Colonne
      ValeurLigne = Ligne("Famille").ToString() '<======
      If ValeurLigne = SelectFamille Then '<======
           Str_TitreDoc = Ligne("Nuance").ToString()
           Lstb_Nuances.Items.Add(Str_TitreDoc)
      End If '<======
   Next
            
 End Sub
Or j'ai le droit à un message d'erreur (qui n'exprime même pas d'où viernt le problème) et plus rien ne fonctionne.
Je fais appel donc à votre expérience pour essayer de m'orienter vers une solution à mon soucis (car j'imagine qu'en faisant du VB.net depuis quelques jours je fais des erreurs qui peuvent vous crever les yeux...)

J'ai également essayé de faier afficher le contenu de ma variable ValeurLigne en retirant mon dernier IF, mais même chose, message d'erreur. Je suppose donc que je m'y prend mal pour essayer de filtrer mes informations.

FitzCheva · Accepted Answer

Problème résolu.
La faute à ma déclaration de variable (mauvais de type).

Problème de variable ?

1 réponse

Votre réponse

Discussions similaires