Create a array from dbfs

[Silvio.Falconi]

I wish create a telephon list ( temporaney array) from two archives dbf but I not Know How make it

Is There is a function to create array from databases or I must create it to hand ?
the field are the same only change the prefix init ( CL or PR)
sample

customer : CLNOMBRE
farmer : PRNOMBRE

When I have the array I wish a alphabetic order from a to z ( with tabs)

I saw something in this forum but I not remember where

[karinha]

Maybe:

Code: Select all  Expand view

   ASORT(MATRIZ,,,{ |Z,W| Z[1]+Z[2] < W[1]+W[2] }
 

[karinha]

Examples:

Code: Select all  Expand view

LOCAL aVetor := { “A”, “D”, “C”, “B” }
LOCAL aArray := { 3, 5, 1, 2, 4 }
 
ASORT(aVetor)                          // Resulta: { “A”, “B”, “C”, “D” }
ASORT(aVetor,,, { |x, y| x > y } )     // Resulta: { “D”, “C”, “B”, “A” }
 
ASORT(aArray)                          // Resulta: { 1, 2, 3, 4, 5 }
ASORT(aArray,,, { |x, y| x > y } )     // Resulta: { 5, 4, 3, 2, 1 }
 
 
Este exemplo ordena o segundo elemento de um array de duas dimensões:
 
LOCAL aIndice := { { “Fipe”, 9.3 }, { “IPC”, 8.7 }, { “DIEESE”, 12.3 } }
 
ASORT(aIndice, , , { | x,y | x[2] > y[2] } )
 
// Com base na ordenação acima, a ordem fica:
// DIEESE     12.3
// Fipe        9.3
// IPC         8.7