Titolo: Costruire una Lista Gerarchica
Categoria: Codice |
|
Ultimo Aggiornamento: 24/06/04 |
Ecco un codice di esempio per costruire una lista gerarchica di due livelli, basata su una struttura con una tabella [Padri] e una di [Figli] in relazione.
C_LONGINT(Lista_l;$sottolista_l;$padri_l)
ListaGerarchica_l:=
New list ` Ne creo una nuova
ALL RECORDS([Padri])
For ($padri_l;1;Records in selection([Padri]))
RELATE MANY([Padri]) `seleziona eventuali figli di questo padre
If (
Records in selection([Figli])>0) `controlla se ce ne sono
ORDER BY([Figli];[Figli]Nome)
$sottolista_l:=
New list `crea una lista temporanea dei figli
For ($i;1;
Records in selection([Figli]))
`per ogni figlio aggiunge il figlio all'elenco dei figli
APPEND TO LIST($sottolista_l;[Figli]Nome;-1*Record number([Figli]))
NEXT RECORD([Figli])
End for End if ` aggiunge il padre e il suo elenco dei figli alla lista principale
APPEND TO LIST(ListaGerarchica_l;[Padri]Nome;Record number([Padri]);$sottolista_l;True)
NEXT RECORD([Padri])
End for
Inviato da: Umberto Migliore |
|
Visite: 13469 |
Se accedi con utente e password, puoi aggiungere dei commenti.