Frage zu Treeview

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von lris08.

    Frage zu Treeview

    Hallo,

    bitte entschuldigt, aber ich muss noch mal auf das Thema TreeView zurück kommen.

    Komme leider überhaupt nicht mehr weiter und möcht euch noch mal um Hilfe bitten...


    Versuche in einem TreeView etwas zu selectieren und markieren.


    Der Aufbau ist so, dass ich erst ein Treeview fülle, mit Daten aus einer Datenbank
    ID SubID Text

    Anschließend wird ein Datensatz erstellt, in dem ich aus dem gerade eben gefüllten Treeview einen Wert zuordne.

    Wenn ich anschließend diesen Datensatz, wo zu vor ein Eintrag zugeordnet wird wieder aufrufe, soll genau dieser Eintrag im Treeview markiert werde.

    Der Datensatz schau so aus:
    ID TreeViewID Bezeichnung ... usw.

    Was heißt, daß ich im Datensatz die ID des Treevieweintrages speichere. Über diese ID vom Treeview möcht/muss ich dann wieder suchen und markieren können.

    Mein derzeitiger Code zum suchen, wird jedoch immer nur der erste Eintrag im Treeview markiert.

    VB.NET-Quellcode

    1. ' Kategorie ist die ID des Treevieweintrages
    3. For Each tvnode As TreeNode In TreeView1.Nodes
    4. If tvnode.Tag() = Kategorie Then
    5. TreeView1.Focus()
    6. TreeView1.Select()
    8. End If
    9. Next


    Ich komm da einfach nicht weiter, alles lesen bei MSDN und Galileo hat mir bisher nicht geholfen...

    Hiffe auf eure Hilfe...

    Danke vorab und schönen Fr. noch...

    Alex


    EDIT:

    So fülle ich mein TreeView:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Kategorie_Laden()
    2. TreeView1.Nodes.Clear()
    3. Dim dt As DataTable = New DataTable("TreeView")
    4. Me.TV1_Datentabelle_fuellen(dt)
    5. Me.TV1_HauptNode_fuellen(dt)
    6. Me.TreeView1.ExpandAll()
    8. End Sub
    10. Public Sub TV1_Datentabelle_fuellen(ByRef dt As DataTable)
    11. Timer1.Start()
    13. Try
    14. Dim sCN As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Archiv_aktiv
    15. Dim sql As String = "SELECT * FROM " & Tabelle08 & " ORDER BY ID"
    16. Dim cn As OleDb.OleDbConnection = New OleDb.OleDbConnection(sCN)
    17. Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(sql, cn)
    18. Dim cmd As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(da)
    19. da.Fill(dt)
    21. Catch ex As OleDb.OleDbException
    22. Fehlermeldung = ex.Message & " - Fehler: Kategorieverwaltung, TV1_Datentabelle_fuellen "
    23. Fehler_Instance.Ausgabe(Fehlermeldung)
    25. Finally
    26. ToolStripProgressBar1.Value = 100
    28. End Try
    30. End Sub
    32. Public Sub TV1_HauptNode_fuellen(ByVal dt As DataTable)
    33. Me.TreeView1.BeginUpdate()
    34. 'Dim ParentId As Integer
    35. Dim Tn As TreeNode
    36. For Each r As DataRow In dt.Rows
    37. Tn = New TreeNode((r("Kat_Tag").ToString))
    38. Tn.Tag = (r("ID").ToString)
    39. Tn.ImageIndex = 0
    40. Tn.SelectedImageIndex = 1
    41. If Convert.ToInt32(r("Kat_ParentID")) = 0 Then
    42. Me.TreeView1.Nodes.Add(Tn)
    43. End If
    44. TV1_SubNode_fuellen(Tn, dt, Convert.ToInt32(r("ID")))
    45. Next
    46. Me.TreeView1.EndUpdate()
    48. End Sub
    50. Public Sub TV1_SubNode_fuellen(ByRef tn As TreeNode, ByRef dt As DataTable, ByVal ID As Integer)
    51. Dim foundRows() As DataRow = dt.Select("Kat_ParentID = " + ID.ToString, "ID")
    52. Dim Tn_Sub As TreeNode
    53. For Each _r As DataRow In foundRows
    54. Tn_Sub = New TreeNode((_r("Kat_Tag").ToString))
    55. Tn_Sub.Tag = (_r("ID").ToString)
    56. Tn_Sub.ImageIndex = 0
    57. Tn_Sub.SelectedImageIndex = 1
    58. tn.Nodes.Add(Tn_Sub)
    59. TV1_SubNode_fuellen(Tn_Sub, dt, Convert.ToInt32(_r("ID")))
    60. Next
    62. End Sub

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „lris08“ ()

    ok... danke für deine Antwrot...

    Habs damit auch probiert...

    Bei Key - siehe Bild ... steht nicht zur Verfügung...


    bei Name gibts die Meldung: Ungültige Konvertierung von der Zeichenfolge in Typ Double.
    Kategorie ist aber ein Integer, also eine Zahl... nämlich die gespeicherte ID des Treevieweintrages...




    EDIT: Habe gerade noch mal was versucht, anscheinend gibts hier ein Problem mit der for each schleife...
    rvnode.Tag() hat den richtigen Eintrag (die ID) , aber die schleife bleibt immer am ersten Eintrag stehen...

    VB.NET-Quellcode

    1. Dim i As Integer
    2. For Each tvnode As TreeNode In TreeView1.Nodes
    3. If tvnode.Tag() = Kategorie Then
    4. i = tvnode.Index()
    5. TreeView1.Focus()
    6. TreeView1.Select()
    7. MsgBox("Kat_suchen " & i & " " & tvnode.Tag()) ' Dies nur zum Test was in den Feldern steht - Gedankenstütze"
    8. End If
    9. Next
    Bilder

    • VBP_3.jpg

      29,73 kB, 356×188, 86 mal angesehen

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „lris08“ ()

    Ich habs hinbekommen ... ole !

    VB.NET-Quellcode

    1. Dim i As Integer
    2. For Each tvnode As TreeNode In TreeView1.Nodes
    3. If tvnode.Tag() = Kategorie Then
    4. i = tvnode.Index()
    5. Me.TreeView1.SelectedNode = Me.TreeView1.Nodes(i)
    6. TreeView1.Focus()
    8. End If
    10. Next


    So sucht er die den passenden Eintrag anhand der zuvor gespeicherten ID heraus, markiert und fokusiert diese...

Facebook
Telefonspende