vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
TreeView befüllen in VB2010 
Autor: ERBRU
Datum: 28.02.18 11:42

Hallo zusammen,

habe hier einen alten VBA Code eingestellt, mit dem konnte ich in Accsess wunderbar ein TV befüllen.
nun wie macht man es in VB.Net ? bzw. mit Datatable, Dataset

habe 3 typisierte Tabellen aus denen die TV Daten kommen sollen.


- Warengruppe
- Artikelgruppe
- dann die Artikel anhängen

würde mich freuen wenn mich da jemand unterstützen kann.

ich möchte meine Form etwas strukturierter gestalten also auch Eingaben sollen wieder gemacht werden können.

VBA - Code
Public Sub tvBem_Laden()
' TreeView laden
Dim objBem As Object
Dim Nod As Object
Dim rst As DAO.Recordset
 
   On Error GoTo tvBem_Laden_Error
 
   LockWindowUpdate (tvBem.hwnd)
 
   ' Verweis auf Treeview setzen
   Set objBem = Me!tvBem.Object
   'Treeview leeren
   objBem.Nodes.Clear
 
   ' Alle Plattformen
   sSql = "SELECT * FROM tblPlattform"
   Set rst = DB.OpenRecordset(sSql, dbOpenSnapshot)
   ' TreeView sortiert füllen
   Do While Not rst.EOF
      ' Key besteht aus "P" und PlattformText
      Set Nod = objBem.Nodes.Add(Key:="P" & CStr(rst!PlID), _
                                 Text:="Typ " & rst!PlText, _
                                 Image:=6)
      Nod.ExpandedImage = 1
      Nod.Expanded = True
      rst.MoveNext
   Loop
   rst.Close
 
   ' Alle Produktgruppen eintragen
   sSql = "SELECT DISTINCT  tblArtikel.Pl_ID, tblArtikel.Pr_ID," & _
     "tblProduktgruppe.PrText " & _
          "FROM tblProduktgruppe RIGHT JOIN (tblPlattform RIGHT JOIN tblArtikel" & _
          "ON tblPlattform.PlID = tblArtikel.Pl_ID) " & _
          "ON tblProduktgruppe.PrID = tblArtikel.Pr_ID"
 
   Set rst = DB.OpenRecordset(sSql, dbOpenSnapshot)
 
   Do While Not rst.EOF
      Set Nod = objBem.Nodes.Add(relative:="P" & CStr(rst!Pl_ID), _
                                 Relationship:=4, _
                                 Key:="G" & CStr(rst!Pr_ID) & "P" & CStr( _
                                 rst!Pl_ID), _
                                 Text:="Zsb.: " & rst!PrText, _
                                 Image:=21)
      rst.MoveNext
   Loop
   rst.Close
 
   ' Alle Artikel eintragen
   sSql = "SELECT ArtID, Pr_ID, Pl_ID, ArtSachnummer FROM tblArtikel"
 
   Set rst = DB.OpenRecordset(sSql, dbOpenSnapshot)
 
   Do While Not rst.EOF
      Set Nod = objBem.Nodes.Add(relative:="G" & CStr(rst!Pr_ID) & "P" & CStr( _
        rst!Pl_ID), _
                                 Relationship:=4, _
                                 Key:="B" & CStr(rst!ArtID), _
                                 Text:=rst!ArtSachnummer, _
                                 Image:=15)
      rst.MoveNext
   Loop
   rst.Close
 
 
   On Error GoTo 0
   LockWindowUpdate (0)
   Exit Sub
 
 
 
 
tvBem_Laden_Error:
   LockWindowUpdate (0)
   MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure" & _
     "tvBem_Laden of VBA Dokument Form_frmBem"
 
End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
TreeView befüllen in VB20103.858ERBRU28.02.18 11:42
Re: TreeView befüllen in VB20102.717Souffleurlos28.02.18 16:00
Re: TreeView befüllen in VB20102.650ERBRU28.02.18 16:29
Beispiel: Datarow-Spaltenwerte in TreeView eintragen2.765Manfred X01.03.18 06:15
Re: TreeView befüllen in VB20102.657ERBRU01.03.18 13:36
Re: TreeView befüllen in VB20102.650Manfred X01.03.18 17:42
Re: TreeView befüllen in VB20102.648ERBRU02.03.18 14:05
Re: TreeView befüllen in VB20102.650Manfred X02.03.18 19:27
Re: TreeView befüllen in VB20102.597ERBRU03.03.18 19:45
Re: TreeView befüllen in VB20102.669Manfred X04.03.18 08:33
Re: TreeView befüllen in VB20102.547ERBRU04.03.18 13:16
Re: TreeView befüllen in VB20102.626Franki05.03.18 05:05
Re: TreeView befüllen in VB20102.513ERBRU08.03.18 14:45
Re: TreeView befüllen in VB20102.556Manfred X08.03.18 19:12
Re: TreeView befüllen in VB20102.535ERBRU08.03.18 19:26
Re: TreeView befüllen in VB20102.573Manfred X09.03.18 07:07
Re: TreeView befüllen in VB20102.569ERBRU09.03.18 08:50
Re: TreeView befüllen in VB20102.632Manfred X09.03.18 11:18
Re: TreeView befüllen in VB20102.555ERBRU09.03.18 15:08
Re: TreeView befüllen in VB20102.554Manfred X09.03.18 15:57
Re: TreeView befüllen in VB20102.508ERBRU09.03.18 19:01
Re: TreeView befüllen in VB20102.551Manfred X09.03.18 22:27
Re: TreeView befüllen in VB20102.419ERBRU10.03.18 09:42
Re: TreeView befüllen in VB20102.497Manfred X10.03.18 10:49
Re: TreeView befüllen in VB20102.467ERBRU10.03.18 10:58
Re: TreeView befüllen in VB20102.438Manfred X10.03.18 11:28
Re: TreeView befüllen in VB20102.472ERBRU10.03.18 12:44
Re: TreeView befüllen in VB20102.445Manfred X10.03.18 12:57
Re: TreeView befüllen in VB20102.426ERBRU10.03.18 13:29
Re: TreeView befüllen in VB20102.415Manfred X10.03.18 14:20
Re: TreeView befüllen in VB20102.414ERBRU10.03.18 16:14
Re: TreeView befüllen in VB20102.631Franki04.03.18 05:57
Re: TreeView befüllen in VB20102.547ERBRU09.03.18 08:38
Re: TreeView befüllen in VB20102.395Franki11.03.18 01:58
Re: TreeView befüllen in VB20102.454Manfred X11.03.18 10:41
Re: TreeView befüllen in VB20102.379ERBRU11.03.18 11:37
Re: TreeView befüllen in VB20102.461Manfred X11.03.18 12:49
Re: TreeView befüllen in VB20102.474ERBRU11.03.18 17:48
Re: TreeView befüllen in VB20102.419Manfred X12.03.18 06:21
Re: TreeView befüllen in VB20102.420ERBRU12.03.18 10:22
Re: TreeView befüllen in VB20102.467Manfred X12.03.18 11:34
Re: TreeView befüllen in VB20102.382ERBRU12.03.18 12:13
Re: TreeView befüllen in VB20102.433Manfred X12.03.18 12:31
Re: TreeView befüllen in VB20102.516ERBRU12.03.18 13:11
Re: TreeView befüllen in VB20102.460ERBRU12.03.18 15:37
Re: TreeView befüllen in VB20102.404ERBRU15.03.18 19:36

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel