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
Partager