1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49
|
Imports System.Xml
Imports System.Xml.XPath
Imports System.IO
Public Class Form1
Dim cyclist As XPathDocument = New XPathDocument("C:\Users\shsb\Documents\Visual Studio 2010\Projects\XML\XML\Export\DYN_cyclist.xml")
Dim idcyclist As XPathDocument = New XPathDocument("C:\Users\shsb\Documents\Visual Studio 2010\Projects\XML\XML\Export\DYN_cyclist.xml")
Dim nav_cyclist As XPathNavigator = cyclist.CreateNavigator
Dim nav_idcyclist As XPathNavigator = cyclist.CreateNavigator
Dim iterCycliste As XPathNodeIterator = nav_cyclist.Select("DocumentElement/DYN_cyclist")
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
'quand je sélectionne un cycliste sa note en plaine apparait dans un NumeriqueUpDown
ide = ListView1.SelectedItems(0).Text
Dim iteridCycliste As XPathNodeIterator = nav_idcyclist.Select("DocumentElement/DYN_cyclist[IDcyclist=" & ide & "]")
While iteridCycliste.MoveNext
Me.Plaine.Value = iteridCycliste.Current.SelectSingleNode("charac_i_plain").Value
End While
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ide = ListView1.SelectedItems(0).Text
'Je veux que quand je modifie le NumeriqueUpDwon ca modifie la valeur de charac_i_plain
Dim iteridCycliste As XPathNodeIterator = nav_idcyclist.Select("DocumentElement/DYN_cyclist[IDcyclist=" & ide & "]")
While iteridCycliste.MoveNext
iteridCycliste.Current.SelectSingleNode("charac_i_plain").SetValue(Me.Plaine.Text) ' mais ça ne marche pas
End While
End Sub |
Partager