Bonjour,
Je galère pour alimenter un treeview avec une table sousfamille;
la structure :
-----------------
id|idsousfamille|nom_sousfamille


mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
procedure TForm2.aff_tree(TV : TTreeView);
var newNode : TTreeNode;
begin
  With TIBCQuery.Create(Nil) do
  try
 
    SQL.Add('Select * from TBL_CATSOUSFAMILLE order By Nom_sousfamille');
 
    Open;
    with TV do
    begin
      Items.Clear;
      if IsEmpty then Items.Add(Nil, 'Vide...')
 
      else
      begin
        NewNode := Items.AddChildFirst(Nil,FieldByName('Nom_sousfamille').Asstring);
        while not Eof do
        begin
          if (FieldByName('IDsousfamille').AsString = NewNode.Text) then
            Items.AddChild(NewNode,FieldByName('Nom_sousfamille').Asstring)
          else
          begin
            newNode := Items.AddChild(Nil,FieldByName('Nom_sousfamille').AsString);
            Items.AddChild(NewNode,FieldByName('Nom_sousfamille').Asstring);
          end;
          Next;
        end;
    end;
  end;
  finally
    Free;
  end;
end
;