Clipper On Line • Ver Tópico - ARRAY - Função que gera array com dados de uma tabela.

ARRAY - Função que gera array com dados de uma tabela.

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

 

ARRAY - Função que gera array com dados de uma tabela.

Mensagempor rochinha » 23 Fev 2007 13:35

Amiguinho

Tenho esta função a bastante tempo, mas não lembro quando a usei portanto acho que é assim:

USE clientes SHARED NEW
aMeusDados := CopyToArray( { "NOME", "ENDERECO", "CEP" },
                                                "ESTADO = 'SP'" )


function CopyToArray( PablkCampos, PblkFor, PBlkWhile )
   local cNumCampos := len(PablkCampos)
   local aVetor := {}
   local Tx
   for Tx = 1 to cNumCampos
       aadd( aVetor, {} )
   next
   PblkFor   := iif( PblkFor=NIL  , {||.t.}, PblkFor   )
   PBlkWhile := iif( PBlkWhile=NIL, {||.t.}, PBlkWhile )
   do while !eof() .and. eval(PBlkWhile)
      if eval( PBlkFor )
         Tx := 0
         for Tx = 1 to cNumCampos
            aadd( aVetor[Tx], eval(PablkCampos[Tx]) )
         next
      endif
      skip
   enddo
   return aVetor
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes



Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 22 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro