Bonjour
Voici le code suivant:
J'aimlerais le remplace par le code suivant
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 For Each drTerme In objDS2.Tables("THESAURUS1").Rows lvi = lstThesaurus.Items.Add(Convert.ToString(drTerme.Item("LIBELLE_THESAURUS"))) With lvi .Tag = CType(drTerme("ID_THES"), Integer) End With
Jene sais pas comment récupérer l'indice de la lgne sur laqeulle on pointe.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 For Each drTerme In objDS2.Tables("THESAURUS1").Rows lstThesaurus.Items.Add(Convert.ToString(drTerme.Item("LIBELLE_THESAURUS"))) lstThesaurus.Items.Item(indice de la ligne sur laquelle on pointe).tag=CType(drTerme("ID_THES"), Integer)
Pouvez vous me dire comment je peux faire.
Merci beaucoup à vous.
Cordialement.
Nathalie Harbonne
Partager