Treeview-Ausgabe nicht richtig

  • Access

  • Bluedragon
  • 1308 Aufrufe 0 Antworten

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • Treeview-Ausgabe nicht richtig

    Hallo zusammen,

    ich stehe vor einem Problem mit meiner Treeview, finde aber keinen Fehler.
    In meiner Treeview sieht es wie folgt aus:
    Ich habe 3 Tabellen: tblTyp (Datensätze: Hardware, Software), tblFehlerKat (hier drin befinden sich Hardwarekomponenten), und tbl SubKat (Hier ist die genauere Spezifikation drin, z.B. Asus P4P800)

    So, nun soll der Treeview die Datensätze passend zur Kategorie ausgeben. Der Fehler bei mir allerdings ist, dass wenn der Baum die Elemente der SubKat ausgibt, er sie alle direkt unter die erste HW-Komponente packt und den Rest einfach übersieht.
    Für die Fehleranalyse ist hier noch der Quellcode:

    Quellcode

    1. Option Compare Database
    2. Option Explicit
    4. Dim objImageList As MSComctlLib.ImageList
    5. Dim ObjTreeView As MSComctlLib.TreeView
    9. Private Sub Form_Load()
    10. Dim objNode As MSComctlLib.Node
    11. Dim i As Integer
    12. Dim j As Integer
    13. Dim k As Integer
    14. Dim lang As Integer
    15. Dim lang2 As Integer
    16. Dim db As DAO.Database
    17. Dim TBLA As DAO.Recordset
    18. Dim TBLB As DAO.Recordset
    19. Dim TBLC As DAO.Recordset
    20. Dim TypKn As Node
    21. lang = 0
    22. lang2 = 0
    24. Set db = CurrentDb
    25. Set TBLA = db.OpenRecordset("tblTyp")
    26. Set TBLB = db.OpenRecordset("tblFehlerKat")
    27. Set TBLC = db.OpenRecordset("tblSubKat")
    29. Do Until TBLB.EOF
    30. lang = lang + 1
    31. TBLB.MoveNext
    32. Loop
    33. TBLB.MoveFirst
    35. Do Until TBLC.EOF
    36. lang2 = lang2 + 1
    37. TBLC.MoveNext
    38. Loop
    39. TBLC.MoveFirst
    41. For j = 1 To 2
    42. Set TypKn = TreeView.Nodes.Add(, , , TBLA!Kategorie)
    44. For i = 1 To lang
    45. If TBLB!TypID = j Then
    46. TreeView.Nodes.Add TypKn.Index, tvwChild, , TBLB!FehlerKat
    48. For k = 1 To lang2
    49. If TBLB!QuellenID = TBLC!QuellenID Then
    50. TreeView.Nodes.Add TypKn.Index + 1, tvwChild, , TBLC!SubKat
    51. End If
    52. TBLC.MoveNext
    53. Next k
    54. TBLC.MoveFirst
    56. End If
    57. TBLB.MoveNext
    59. Next i
    61. TBLB.MoveFirst
    62. TBLA.MoveNext
    63. Next j
    66. End Sub
    Alles anzeigen



    Ich hoffe, dass jemand der Fehler findet.
    Danke schon im Voraus für die Hilfe.

    Bluedragon