https://foro.gambas-es.org/viewtopic.php?f=1&t=5613&p=33219#p33219
-----------------------------------
Shell
Jueves, 30 Junio 2016, 23:46

Re: Actualizar Colección Recursivamente
-----------------------------------
Shordi: 

Puedes probar esto para que solo sea colecciones:

[code linenumbers=false syntax=gambas]
Public Sub actualizacolecrecursiv(dst As Variant, src As Variant)
  
  Dim k As Variant
  
  For Each k In src       
    'If dst.Exist(src.key) And (TypeOf(src.key) = gb.Object) Then        
    If dst.Exist(src.key) And src[k.key] Is Collection Then        
        actualizacolecrecursiv(dst[k.key], src[k.key])             
    Else
      dst[src.key] = src[src.key]
    Endif     
  Next
  
End
[/code]

El resultado es idéntico. Ahora habría que jugar con los arrays. :-)

Saludos


