gegebenen sind 3 Dateien (Hauptgruppe mit 2 Stellen, Untergruppe mit Hauptgruppe+1 Stelle, Kompletter Schlüssel mit 4 Stellen),
die über Queries den Tree aufbauen.
Hauptgruppe "01" - ".."
Untergruppe "01A" - "..." - die "01" entspricht der Hauptgruppe -> Suchbegriff.
Kompletter Schlüssel "01Aa" ...
jeweils mit Beschreibungstext der in der Zeile angezeigt werden soll.
Code: Alles auswählen
sTextHG, sTextUG, sTextOrtArt is string
IF NOT ( HOpen(WE_HG) AND HOpen(WE_UG) AND HOpen(WE_CH_HAU) AND HOpen(WE_CH_KAT) ) THEN
Error("Datei kann nicht geöffnet werden" + HErrorInfo())
ELSE
HExecuteQuery(QRY_ListHG)
HReadFirst(QRY_ListHG)
WHILE NOT HOut(QRY_ListHG)
sTextHG = QRY_ListHG.KEY_HG+" - "+QRY_ListHG.TXT_DE
TreeAdd(TREE_WellerKeyListe,sTextHG,"","","",tvAcceptDuplicate,"Hauptgruppeneintrag")
HExecuteQuery(QRY_ListHG_UG,hQueryDefault,QRY_ListHG.KEY_HG)
HReadFirst(QRY_ListHG_UG)
WHILE NOT HOut(QRY_ListHG_UG)
sTextUG = sTextHG+TAB+QRY_ListHG_UG.KEY_UG+" - "+QRY_ListHG_UG.TXT_DE
TreeAdd(TREE_WellerKeyListe,sTextUG,"","","",tvAcceptDuplicate,"Untergruppeneintrag")
HExecuteQuery(QRY_ListHG_UG_OrtArt,hQueryDefault,QRY_ListHG_UG.KEY_UG)
HReadFirst(QRY_ListHG_UG_OrtArt)
WHILE NOT HOut(QRY_ListHG_UG_OrtArt)
sTextOrtArt = sTextUG+TAB+QRY_ListHG_UG_OrtArt.WE_KEY+" - "+QRY_ListHG_UG_OrtArt.VORT_DE+" ~ "+QRY_ListHG_UG_OrtArt.VART_DE
TreeAdd(TREE_WellerKeyListe,sTextOrtArt,"","",QRY_ListHG_UG_OrtArt.WE_KEY,tvAcceptDuplicate,"Ort+Art-Eintrag")
HReadNext(QRY_ListHG_UG_OrtArt)
END
HReadNext(QRY_ListHG_UG)
END
HReadNext(QRY_ListHG)
END
END