Crear arbol mediante registros en una base de datos.

[Casimiro Noteví]

Empezado por Rc96

+ Nivel1
departamento 1
departamento 2
departamento 3
+ Nivel2
departamento 1
departamento 2
departamento 3
+ Nivel3
departamento 1
departamento 2
departamento 3

Más lógico sería tener una tabla "Niveles" con los campos "nivel" y "departamento".

Código SQL [-]
create table tbNiveles (
  nivel integer not null,
  departamento integer not null,
  primary key (nivel, departamento)
)

De todas formas, haz una búsqueda por treeview, es un tema tratado en diversas ocasiones.

PD: Si hubieses puesto un título descriptivo, te saldrían temas relacionados. (Algo así como crear árbol de elementos en un treeview).

[[duilioisola]]

Código Delphi [-]
var
  NodoNivel, Nodo : TreeNode;
begin
  with TreeView1.Items do
  begin
     // Creo el nodo "padre"
     NodoNivel := Add(nil, 'Nivel1');
     // Recorro nodos del nivel 1
     FDQnd1.Close;
     FDQnd1.SQL.Text:=('select * from public.estruc_nvl1');
     FDQnd1.Open();
     begin
       // Creo Nodo colgando del NodoNivel.
       Nodo := AddChild(NodoNivel, FDQnd1.FieldByName('Departamento').AsString);

       // Aqui puedo tocar cosas del nodo recien creado.
       Nodo.ImageIndex := -1;

       FDQnd1.Next;
     end

     // Creo el nodo "padre"
     NodoNivel := Add(nil, 'Nivel2');
     // Recorro nodos del nivel 2
     {...}

   
     // Creo el nodo "padre"
     NodoNivel := Add(nil, 'Nivel3');
     // Recorro nodos del nivel 3
     {...}

  end;
end;