Dim Maxebene As Integer
        Dim dv As DataView
        Dim dr As DataRowView()
        Dim i, currebene As Integer
        Dim XNode(0) As TreeNode
        Strukturtree.Nodes.Add("Name")
 
        XNode(0) = Strukturtree.Nodes(0)
        Strukturtree.BeginUpdate()
        Maxebene = 1
 
        For i = 0 To dtStruktur.Rows.Count - 1
            Select Case api.cvint(dtStruktur.Rows(i)("Ebene"))
                Case 0
                    currebene = 1
                    Maxebene = 2
                Case Is > Maxebene
                    currebene = Maxebene
                    Maxebene += 1
                Case Is <= Maxebene
                    currebene = api.cvint(dtStruktur.Rows(i)("Ebene"))
                    Maxebene = currebene + 1
            End Select
 
            ReDim Preserve XNode(currebene)
            XNode(currebene) = XNode(currebene - 1).Nodes.Add(dtStruktur.Rows( _
              i)("Bezeichner"))
            XNode(currebene).Tag = dtStruktur.Rows(i)("ID")
 
            Dim node As TreeNode
            Select Case api.cvint(dtStruktur.Rows(i)("Datatyp"))
                Case 0
                    node = XNode(currebene)
                    node.SelectedImageIndex = 5
                    node.ImageIndex = 5
                Case 1, 7
                    dv = New DataView(dtDaten)
                    dv.Sort = "Strukturnummer"
                    dr = dv.FindRows(dtStruktur.Rows(i)("ID"))
 
                    If dr.Length = 0 Then
                        XNode(currebene).ImageIndex() = 1
                    Else
                        Dim j As Integer
                        For j = 0 To dr.Length - 1
                            If dr(j).Item("Optionen") > 1 Then
                                XNode(currebene).ImageIndex() = 5
                            Else
                                XNode(currebene).ImageIndex() = 0
                            End If
 
                            If Not dtStruktur.Rows(i)("Faktor") Is _
                              System.DBNull.Value Then
                                If dtStruktur.Rows(i)("Faktor") > "" Then
                                    XNode(currebene).Text = XNode( _
                                      currebene).Text & "(" & dtStruktur.Rows( _
                                      i)("Faktor") & " " & Val(dr(j).Item( _
                                      "Faktor")) & "%)"
                                End If
                            End If
                        Next j
                    End If
                Case 2
                    XNode(currebene).ImageIndex() = 4
                Case 3, 4, 5, 6, 8, 9
                    XNode(currebene).ImageIndex() = 3
            End Select
        Next i
 
        Strukturtree.EndUpdate()