¿Cómo manejar un VirtualTreeView?

[jesconsa]

Hola. Estoy tratando de "domar" al Virtual TreeView pero es un hueso duro de roer, tanto que estoy a punto de tirar la toalla. He visto todos los enlaces, todos los ejemplos y hay cosas que no acabo de entender. El VirtualTreeView esta hecho como sabeis para que se creen nodos raiz y a partir de ahi todos los demas. Los datos de dichos nodos van aparte y se pueden crear en el evento OnInit, cuando se crea el arbol o cuando quieras, mostrando cada nodo su texto mediante OnGetText. Todo esto esta bien hasta que llegamos a la parte de seguir añadiendo nodos a los nodos raiz.....Algo asi no funciona:

Código Delphi [-]
 try
    Nodo := Form1.VST1.GetFirst;
    while Assigned(Nodo) do
    begin
      Form1.VST1.Selected[Nodo] := True;

  //for I := 1 to Form1.FDTable10.RecordCount do
   //   begin

         N2:=Form1.VST1.GetNodeData(Nodo);
         S1:=N2.Id;
         Form1.FDTable11.First;
         while not Form1.FDTable11.Eof do
           begin
              S2:=Form1.FDTable11['Parent'];
              if S2=S1 then begin
                  N:=nil;
                  //N.NCaption := Form1.FDTable11.FieldByName('Cities').asString;
                  //N.Chk:= Form1.FDTable11.FieldByName('Selected').AsBoolean;
                  N.Id:= StrToInt(Form1.FDTable11['Id']);
                  añade_nodo(Form1.VST1,Nodo,N);
                  Initialize(N^);
              end;
              Form1.FDTable11.Next;
           end;
      end;


       Nodo := Form1.VST1.GetNextSibling(Nodo);
    //end;
  finally
    Form1.VST1.EndUpdate;
  end;

Lo que voy haciendo en este codigo es lo siguiente: Tengo 3 tabalas cada una para un nivel del arbol . Lo he hecho asi para que en tiempo de ejecucion sea muy facil añadir nodos (registros) a las tablas. En el codigo busco los nodos hijo de un padre determinado comparando los campos 'ID' de cada registro de la tabla de registros hijo con un 'Id' determinado de la tabla de registros raiz. Pues bien, cuando detecta que un hijo pertenece a un padre no me deja coger dicho registro de la tabla de hijos. En añade_nodo tengo todo para crear el nodo hijo (AddCHild, etc) pero no llega a hacerlo por este error.

Código Delphi [-]

N.NCaption := Form1.FDTable11.FieldByName('Cities').asString;

Aqui es donde da un error...He tratado de coger dicho dato con un Dataurce o otro Dataset pero no hay manera. Cualquier ayuda es bienvenida y agradecida.

Muchas gracias

Saludos

[Casimiro Noteví]

Por favor, no abras otro hilo para tratar el mismo tema, gracias.
Los he unido

[jesconsa]

Ok, disculpa Casimiro.

Gracias
Saludos

[Casimiro Noteví]

Empezado por jesconsa

Saludos

Le he cambiado el título para que sea más fácil de identificar por quien pueda ayudar.
Si prefieres otro título, lo dices

[pacopenin]

Hola Jesús. Hace muchos años que no uso VST, pero mirando un proyecto antiguo te mando lo que hacía para cargar un árbol de un sólo nivel. No llegué a explorar mucho más allá. A ver si te sirve.

Código SQL [-]
procedure TFListados.iniciaArbol;
var
  Data1 : PEntryData;
  Node1: PVirtualNode;
  NewNode : PVirtualNode;
begin

     VST.BeginUpdate;
     VST.Clear;

     VST.RootNodeCount := 0;

     Node1 := VST.AddChild(VST.RootNode);

     Data1 := PEntryData(VST.GetNodeData(Node1));
     Data1.Titulo := 'Listados';

     Dat.cdInf.close;
     Dat.cdInf.Params.ParamByName('GRUPO').asInteger := Grupo;
     Dat.cdInf.open;

     VST.Selected[VST.TopNode] := true;
     VST.FocusedNode := VST.TopNode;

     while NOT Dat.cdInf.EOF do
       begin
          NewNode := VST.AddChild(VST.FocusedNode);
          with PEntryData(VST.GetNodeData(NewNode))^ do
            begin
               Titulo  := Dat.cdInfNOMBRE.value;
               Informe := Dat.cdInfINFORME.value;
               Id      := Dat.cdInfUSER_FLAG.value;
               Tipo    := Dat.cdInfTIPO.value;
            end;
          Dat.cdInf.Next;
       end;

     VST.EndUpdate;

     VST.FullExpand;
end;

[jesconsa]

Gracias pacopenin. Ya lo habia resuelto con bucles como:

Código Delphi [-]
Form1.FDTable10.First;
  for X := 1 to Form1.FDTable10.RecordCount do
      begin
        N.NCaption:= Form1.FDTable10.Fieldbyname('Areas').AsString;
    .........
    .........

A la vez que creo los nodos con AddChild les añado los datos, no lo hago en el evento OnInit porque asi me resulta mas facil. Como ves utilizo una tabla asociada directamente con la tabla de la base de datos (se puede hacer directamente asi en la componente Table de FireDac). El problema lo tengo ahora en que los cambios que haga en el VirtualTreeView se graben en la base de datos, por ejemplo pulsar sobre un checkbox de un nodo, etc. Con los Datasources asociados a Grids era facil porque un cambio en el grid automaticamente (activando la propiedad correspondiente) se actualizaba la base, pero aqui no hay enlace con Datasources,..la tabla directa a la base. Alguna idea?

Muchas gracias
Saludos

[pacopenin]

Pues deberás guardar el id del registro correspondiente en cada nodo (como hago en mi ejemplo) y cuando detectes una modificación, recuperar dicho registro y realizar la edición correspondiente. No se me ocurre otro modo.