Hallo Forum,

ich habe ein komisches Verständnisproblem. Es geht darum, mit XML Werten zu arbeiten, aber ich kann meinen Fehler nicht erkennen.
Ich möchte eine XML-Datei, die wie folgt aufgebaut ist, in einer Combobox und das Verzeichnis darunter in einer Listbox ausgeben.
Hier der Aufbau der XML Datei:
Code :
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

<?xml version="1.0" encoding="utf-8" ?>
<Wegmessung>
  <messung>
  <Aufnahme>10.10.2010 17:40</Aufnahme>
    <Messbeginn>
      <aktuelleID>abc</aktuelleID>
      <aktuelleZeit>17:40:01</aktuelleZeit>
      <aktuellerWeg>0</aktuellerWeg>
      <aktuelleID>1</aktuelleID>
      <aktuelleZeit>17:40:03</aktuelleZeit>
      <aktuellerWeg>3.5</aktuellerWeg>
      <aktuelleID>2</aktuelleID>
      <aktuelleZeit>17:40:05</aktuelleZeit>
      <aktuellerWeg>7</aktuellerWeg>
    </Messbeginn>
  </messung>
  <messung>
   <Aufnahme>20.10.2010 17:40</Aufnahme>
    <Messbeginn>
      <aktuelleID>Test</aktuelleID>
      <aktuelleZeit>10:40:01</aktuelleZeit>
      <aktuellerWeg>0</aktuellerWeg>
      <aktuelleID>1</aktuelleID>
      <aktuelleZeit>10:40:03</aktuelleZeit>
      <aktuellerWeg>3.5</aktuellerWeg>
      <aktuelleID>2</aktuelleID>
      <aktuelleZeit>10:40:05</aktuelleZeit>
      <aktuellerWeg>7</aktuellerWeg>
      <aktuelleID>3</aktuelleID>
      <aktuelleZeit>10:40:06</aktuelleZeit>
      <aktuellerWeg>10.5</aktuellerWeg>      
    </Messbeginn>
  </messung>
</Wegmessung>

In der ComboBox soll das Oberverzeichnis stehen (Ausnahmen), worüber man eine Auswahl trifft deren Werte dann in der Listbox aufgelistet werden sollen.
Leider bekomme ich in der Box nur die Ausgabe die dann wie folgt aussieht: <aktuelleID>Test</aktuelleID>

Code :
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

Imports System.Xml.Linq
Imports System.Xml.Serialization
Imports System.Xml
 
 Dim XDoc As New XDocument
 
 
    Private Sub XMLWegDB_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        XDoc = XDocument.Load("Aufzeichnung.xml")
        MessungEinlesen()
 
    End Sub
 
    Sub MessungEinlesen()
        Dim AlleWerte = From G In XDoc...<Wegmessung>...<Aufnahme> Select G.Value
        cbMessgruppe.DataSource = AlleWerte.ToList
 
    End Sub
 
    Private Sub cbMessgruppe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbMessgruppe.SelectedIndexChanged
 
        Dim Nummer = From B In XDoc...<Wegmessung>...<messung> Where B...<Aufnahme>.Value = cbMessgruppe.SelectedItem Select B
 
        cbMessung.DataSource = Nummer...<aktuellerWeg>.ToList
       
    End Sub

Bekomme es einfach nicht hin, diesen Wert umzuwandeln?

Vielen Dank!

LG
OnkelTimon