topic-17468

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Cómo unir 2 tablas?
Posted: Wed Nov 25, 2009 10:23 PM

Hola a todos

Tengo
aLista1:=Directory("C:\DATA*.DBF")
aLista2:=Directory("C:\DATA*.CDX")

Como unir ambas o con directory se puede sacar las dos lista en una sola tabla

Gracias por la ayuda

Saludos

Adhemar

Saludos,

Adhemar C.

armando.lagunas

Posts: 346

Joined: Mon Oct 05, 2009 03:35 PM

Re: Cómo unir 2 tablas?
Posted: Thu Nov 26, 2009 12:01 AM

Hola:

la función directory() devuelve una array con los siguientes campos:

cNombre
cTamaño
dFecha
cHora
cAtributo

osea aLista1[1,1] sería el nombre del primer fichero DBF
aLista1[1,2] sería el tamaño que tiene
aLista1[1,3] sería la fecha de la ultima modificación del archivo
aLista1[1,4] sería la hora de la ultima modificación
aLista1[1,5] sería el atributo que posee el archivo

entonces si quieres unir aLista1 y aLista2 yo lo haría de la siguiente manera:

Code (fw): Select all Collapse

    aLista3 := {}
    FOR k:=1 TO LEN(aLista1)
          FOR y:=1 TO 5
                AADD(aLista3, aLista1[k,y])
          NEXT
    NEXT
    FOR k:=1 TO LEN(aLista2)
          FOR y:=1 TO 5
                AADD(aLista3, aLista2[k,y])
          NEXT
    NEXT

después de esto tienes aLista3 con los 2 arrays juntos.

espero que te sirva y sea lo que necesitas.

saludos desde Chile

SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com

groiss

Posts: 234

Joined: Tue Sep 01, 2009 07:55 AM

Re: Cómo unir 2 tablas?
Posted: Thu Nov 26, 2009 07:22 AM

Disculpad mi intromisión, no sería más sencillo así:

Code (fw): Select all Collapse

FOR i:=1 TO LEN(aLista2)
           AADD(aLista1, aLista2[i])
NEXT

Un saludo

José Luis

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Cómo unir 2 tablas?
Posted: Thu Nov 26, 2009 12:38 PM

Gracias, amigos

Funcionó perfecto

Saludos

Adhemar

Saludos,

Adhemar C.

FiveTech Support Forums

Continue the discussion