Guten Tag Delphianer,
ein kleines Probelm im VirtualTreeview.
Im Stammtisch2 Teil1 1 wird er VirtualTreeview vorgestellt und auch gezeigt wie man damit Daten darstellt. So gut so schön.
Ich versuche nun den VST in meine Anwendung einzubauen. Ich Möchte gerne Adressdaten, die
unterschiedlichen Ursprungs sind, Kunden-, Lieferanten-, Personaladressen in einem Baum, darzustellen.
Aufbau des VST ist folgender:
1. Spalte = AdressArt (Gruppe)
2. Spalte = SuchCode
3. Spalte = Name
Die Gruppe wird über ein
SQL-Statment ermiitelt und auch gesetzt:
// hier steht eine
sql-anweisung für die Gruppenbildung
node := aVST.AddChild(nil, gruppe); // Knoten merken an dem angefügt wurde
Hiernach werden die Daten für die Gruppe mittels
SQL ermittelt und dem Knoten
hinzugefügt:
Delphi-Quellcode:
select * adressen where gruppe = :adressart
while not adressen.eof do
begin
Daten := TOMeineDaten.Create;
with daten do
begin
FKey := iAdressenID;
FSuchCode:= cSuchCode;
FKundenNr := cKundenNr;
FStrasse := cStrasse;
FPLZ := cPLZ;
FOrt := cOrt;
FName := cName;
FTelefon := cTelefon;
FMobil := cMobil;
end;
aVST.AddChild(node, daten);
Next.Daten
end;
NextGruppe
Dies ist alles soweit richtig. Nur die Anzeige der Daten ist doch recht eigenartig.
in Spalte 1: steht folgendes: Kunden
in Spalte 2: steht das Pluszeichen (und die Daten Suchcode)
in Spalte 3: stehen Die Namen
Dies wieder holt sich für die anderen beiden Adressarten.
Eigentlich sollte das [+] vor den Gruppen Kunden, Lieferanten, Personal stehen.
Wer weis Rat und Tat??
Danke für die Unterstützung.