FiveTech Support Forums

Saludos fivewinners

Tengo los siguientes arreglos
Arr1
a , b , c
d , e , f
g , h , i

Arr2
1 , 2, 3
4 , 5, 6
7 , 8, 9

y debo obtener este resultado
aRes
a , b, c, 1, 2, 3
d , e, f, 4, 5, 6
g , h, i, 7, 8, 9

Ambos son creados dinamicamente despues de realizar unos selects sobre mysql. Como no hay relacion entre las tablas no puedo hacer un select con join, mi solucion es la "union" de los arreglos en forma externa.
Tengo acceso a las lineas por separado,

Intente lo siguiente
For x=1 to nLineas
Aadd(aRes, Arr1_aLinea[x], Arr2_aLinea[x]
// Aadd(aRes, {a,b,c},{1,2,3})
Next
Obviamente sin el resultado esperado, en algun momento varian las lineas y las columnas. Ej Un resultado real es ARR1[1021,3] y ARR2[1021,6] y otra mas sencilla Arr1[14,2] y ARR2[14.3]

Cualquier idea sera bienvenida, con la cabeza caliente ni veo el bosque de tanto arbol cerca.

Saludos
Desde Chile
Adolfo

Adolfo:

No te sirve la clausula UNION de MySQL, recuerda, no es lo mismo JOIN que UNION.

Saludos

Gracias.

Cristobal probare tu solucion.
Armando, no sirve UNION, me equivoque al describir lo que he probado, no existe ninguna relacion entre las tablas, hasta habia pensado en poner campos para generar el resultado, pero queria probar si solo con los arrays, que ademas utilizo en otras partes del modulo, era mas que suficiente.

Les comentare los resultados.

A proposito, ni idea de la funcion ARRTRANSPOSE(), es de HARBOUR, Fivewin?

Saludos.
Desde Chile.
Adolfo

a1 := {1,2,3}
a2 := {3,4,5}
a1 := additem(a1, a2)

FUNCTION AddItems(aArray, aItems)
local nOrigSize := Len(aArray)
ASize(aArray, nOrigSize + Len(aItems))
AEval(aItems, {|uItem, nPos| aArray[nOrigSize + nPos] := uItem} )
RETURN aArray

Saludos

Adolfo:

Ya entrados en gastos , también tienes la función AADD()

Como ves por opciones no paramos.

Saludos