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