Treeview et tables avec 2 champs Père et fils
Bonjour a tous
J’ai une table avec 2 colonnes : 1 colonne Père et 2eme colonne fils
Je veux afficher pour un enregistrement sélectionné de ma table un Treeview
Le problème ce que un fis peut être « le père » de plusieurs autre fils.
Si vous avez une nouvelle proposition concernant la structure de ma table, je suis preneur.
Ci-joint un bout de code qui ne marche pas.
procedure TForm1.Button1Click(Sender: TObject);
var
Node: TTreeNode;
begin
TreeView1.Items.Clear;;
TreeView1.items.BeginUpdate;
Node:= treeview1.items.AddObject(nil , neq.Text, Lquery.GetBookmark);
//neq : un champ DBedit qui contient le père de l'enregistrement courant
ajoutnode(treeview1, node, neq.Text);
TreeView1.items.Endupdate;
end;
function TForm1.Ajoutnode(Sender: TTreeView; node:TTreeNode; stext : String):string;
begin
Lquery.SQL.Clear;
Lquery.SQL.Add('select * from ensemble where pere=:cpere;');
Lquery.Parameters.ParamByName('cpere').Value:=stext;
Lquery.Open;
while not Lquery.Eof do
begin
node :=Sender.items.AddChildObject(node,Lquery.Fields[1].AsString,Lquery.GetBookmark);
stext:=Ajoutnode(Sender,node,Lquery.Fields[1].AsString);
Lquery.Next;
end;
end;
Merci d’avance de votre collaboration
Partager