vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2018
 
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 VB20101.122ERBRU28.02.18 11:42
Re: TreeView befüllen in VB2010715Souffleurlos28.02.18 16:00
Re: TreeView befüllen in VB2010688ERBRU28.02.18 16:29
Beispiel: Datarow-Spaltenwerte in TreeView eintragen723Manfred X01.03.18 06:15
Re: TreeView befüllen in VB2010671ERBRU01.03.18 13:36
Re: TreeView befüllen in VB2010681Manfred X01.03.18 17:42
Re: TreeView befüllen in VB2010652ERBRU02.03.18 14:05
Re: TreeView befüllen in VB2010682Manfred X02.03.18 19:27
Re: TreeView befüllen in VB2010617ERBRU03.03.18 19:45
Re: TreeView befüllen in VB2010651Manfred X04.03.18 08:33
Re: TreeView befüllen in VB2010605ERBRU04.03.18 13:16
Re: TreeView befüllen in VB2010621Franki05.03.18 05:05
Re: TreeView befüllen in VB2010570ERBRU08.03.18 14:45
Re: TreeView befüllen in VB2010580Manfred X08.03.18 19:12
Re: TreeView befüllen in VB2010575ERBRU08.03.18 19:26
Re: TreeView befüllen in VB2010578Manfred X09.03.18 07:07
Re: TreeView befüllen in VB2010569ERBRU09.03.18 08:50
Re: TreeView befüllen in VB2010589Manfred X09.03.18 11:18
Re: TreeView befüllen in VB2010554ERBRU09.03.18 15:08
Re: TreeView befüllen in VB2010572Manfred X09.03.18 15:57
Re: TreeView befüllen in VB2010556ERBRU09.03.18 19:01
Re: TreeView befüllen in VB2010572Manfred X09.03.18 22:27
Re: TreeView befüllen in VB2010449ERBRU10.03.18 09:42
Re: TreeView befüllen in VB2010462Manfred X10.03.18 10:49
Re: TreeView befüllen in VB2010450ERBRU10.03.18 10:58
Re: TreeView befüllen in VB2010461Manfred X10.03.18 11:28
Re: TreeView befüllen in VB2010423ERBRU10.03.18 12:44
Re: TreeView befüllen in VB2010433Manfred X10.03.18 12:57
Re: TreeView befüllen in VB2010424ERBRU10.03.18 13:29
Re: TreeView befüllen in VB2010449Manfred X10.03.18 14:20
Re: TreeView befüllen in VB2010426ERBRU10.03.18 16:14
Re: TreeView befüllen in VB2010660Franki04.03.18 05:57
Re: TreeView befüllen in VB2010570ERBRU09.03.18 08:38
Re: TreeView befüllen in VB2010441Franki11.03.18 01:58
Re: TreeView befüllen in VB2010440Manfred X11.03.18 10:41
Re: TreeView befüllen in VB2010430ERBRU11.03.18 11:37
Re: TreeView befüllen in VB2010444Manfred X11.03.18 12:49
Re: TreeView befüllen in VB2010436ERBRU11.03.18 17:48
Re: TreeView befüllen in VB2010448Manfred X12.03.18 06:21
Re: TreeView befüllen in VB2010427ERBRU12.03.18 10:22
Re: TreeView befüllen in VB2010440Manfred X12.03.18 11:34
Re: TreeView befüllen in VB2010426ERBRU12.03.18 12:13
Re: TreeView befüllen in VB2010448Manfred X12.03.18 12:31
Re: TreeView befüllen in VB2010431ERBRU12.03.18 13:11
Re: TreeView befüllen in VB2010424ERBRU12.03.18 15:37
Re: TreeView befüllen in VB2010376ERBRU15.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-2018 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