[Gambas-user] collection of collection problem

[PICCORO McKAY Lenz]

i try to put inside a collection another, and i only refers it selft:

    rset = $conexion.Exec("SELECT * FROM alm_despacho WHERE
cod_despacho = '" & cod_despacho & "'")
    If rset.Available Then
        For Each rset
            columnas = New Collection(gb.IgnoreCase)
            columnas.Add(rset!cod_despacho), "cod_despacho")
            columnas.Add(rset!fecha, "fecha")
            cod_contenido = rset!cod_contenido
            rsetd = $conexion.Exec("SELECT * FROM
alm_despacho_producto WHERE cod_contenido = '" & cod_contenido & "'")
            filasdet = New Collection(gb.IgnoreCase)
            For Each rsetd
                columnasdet = New Collection(gb.IgnoreCase)
                columnasdet.Add(rsetd!cod_producto, "cod_producto")
                columnasdet.Add(rsetd!can_producto, "can_producto")
                columnasdet.Add(rsetd!mon_precio, "mon_precio")
                filasdet.Add(columnas, rsetd!cod_contenido) ' el
codigo de producto es el indice! ja soy el mejor
            Next
            columnas.Add(filasdet, "cod_contenido")
            filas.Add(columnas, rset!cod_despacho)
Next
return filas

why the second collection object have the same content (and referst to
same) firts collection object?

Lenz McKAY Gerardo (PICCORO)
http://qgqlochekone.blogspot.com