Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Tree View
Autor: Frunz
Datum: 22.01.04 15:42
moin, habe 2 Probleme: habe folgenden Code aus diesem Forum: Dim Rs As Recordset Set Rs = dbsArtikel.OpenRecordset("SELECT DISTINCT * FROM TB_B WHERE Key_B LIKE '" & Text2.Text & "*" & "' ORDER BY Ueberschrift_B") sAnfang = "" While Not Rs.EOF sAktAnfang = Left$(Rs!Ueberschrift_B, 1) If sAktAnfang <> sAnfang Then sAnfang = sAktAnfang TreeView1.Nodes.Add , , sAnfang, sAnfang TreeView1.Nodes.Add sAnfang, tvwChild, Rs!Ueberschrift_B, Rs!Ueberschrift_B Else TreeView1.Nodes.Add sAnfang, tvwChild, Rs!Ueberschrift_B, Rs!Ueberschrift_B End If Rs.MoveNext Wend Rs.Close Set Rs = Nothing Bekomme aber manchmal diese Fehlermeldung: Runtime 35602 key is not unique in collection Weitere Frage: wie unterteile ich weiter, also von "A" nach "AB, AC, AD....... " funktioniert mit dem Code oben aber wie komme ich dann nach "ABA, ABC......ACA, ACB......" vielen Dank

Tree View	558	Frunz	22.01.04 15:42
Re: Tree View	340	devnull	22.01.04 16:17
Re: Tree View	325	Frunz	22.01.04 16: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übersicht

Suchen