Array com 2 Colunas (RESOLVIDO)

[Luiz Arruda (ICO)]

Pessoal, como coloco duas colunas em um Array ?

Se eu Fizer assim

While(Cadastro->(!Eof() ))

If Month(Nascimento)=Month(date())

aadd(aNiv,Cadastro->Associado)

aadd(aNiv,Cadastro->nascimento)

Endif

Cadastro->(dbSkip(1))

EndDo

id=code>id=code>

Fica uma linha abaixo da outra,

Se eu fizer assim;

While(Cadastro->(!Eof() ))

If Month(Nascimento)=Month(date())

aadd(aNiv,Cadastro->Associado+" "+Dtoc(Nascimento))

Endif

Cadastro->(dbSkip(1))

EndDo

id=code>id=code>

Até mostra a data, mas em uma unica coluna, quero duas colunas uma

pro nome outra pra data..

Desde Já Obrigado..

Luiz Arruda - Corumba(MS)

FiveWin 9.04

[x]Harbour

xDev

WS

--

ico.corumba@gmail.com

--

Não Abandone Seu Tópicoid=red>

Editado por - ico on 08/10/2009 11:16:44

[Luiz Arruda (ICO)]

Pessoal, como coloco duas colunas em um Array ?

Se eu Fizer assim

While(Cadastro->(!Eof() ))

If Month(Nascimento)=Month(date())

aadd(aNiv,Cadastro->Associado)

aadd(aNiv,Cadastro->nascimento)

Endif

Cadastro->(dbSkip(1))

EndDo

id=code>id=code>

Fica uma linha abaixo da outra,

Se eu fizer assim;

While(Cadastro->(!Eof() ))

If Month(Nascimento)=Month(date())

aadd(aNiv,Cadastro->Associado+" "+Dtoc(Nascimento))

Endif

Cadastro->(dbSkip(1))

EndDo

id=code>id=code>

Até mostra a data, mas em uma unica coluna, quero duas colunas uma

pro nome outra pra data..

Desde Já Obrigado..

Luiz Arruda - Corumba(MS)

FiveWin 9.04

[x]Harbour

xDev

WS

--

ico.corumba@gmail.com

--

Não Abandone Seu Tópicoid=red>

Editado por - ico on 08/10/2009 11:16:44

[Luisão]

Assim:

While(Cadastro->(!Eof() ))

If Month(Nascimento)=Month(date())

aadd(aNiv,{Cadastro->Associado,Cadastro->nascimento})

Endif

Cadastro->(dbSkip(1))

EndDo

For i = 1 To Len(aNiv)

? "Associado ",aNiv[i,1],,"Nascimento ",aNiv[i,2]

NEXT

id=code>id=code>

Luis Fernando Jr.(Luisão)

"Seize the day or die regretting the time you lost"

FWH8.1 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

[Luiz Arruda (ICO)]

citação:

aadd(aNiv,{Cadastro->Associado,Cadastro->nascimento})

---

id=quote>id=quote>

Resultado: {...}

Luiz Arruda - Corumba(MS)

FiveWin 9.04

[x]Harbour

xDev

WS

--

ico.corumba@gmail.com

--

Não Abandone Seu Tópicoid=red>

[Luisão]

Você testou da forma que postei no FOR ?

Você vai ter N elementos de 2 colunas, logo, para se referenciar a determinada coluna, deve fazer assim:

aTabela[N,Coluna]. A coluna 1 é Associado e a 2 é Nascimento.

Editado por - Luisão on 08/10/2009 10:47:58

[Luiz Arruda (ICO)]

Agora testei.. e até ai vai bem..

o erro tá aqui;

Redefine ListBox olbx Fields aNiv[oLbx] Header "Nome" ID 4002 Of odlg

oLbx:nat := 1

oLbx:bGoTop = { || oLbx:nat := 1 }

oLbx:bGoBottom = { || oLbx:nat := Eval(oLbx:bLogicLen ) }

oLbx:bSkip = { | nWant, nOld | nOld := oLbx:nat, oLbx:nat += nWant,;

oLbx:nat := Max( 1, Min( oLbx:nat, Eval( oLbx:bLogicLen ) ) ),;

oLbx:nat - nOld }

oLbx:bLogicLen = { || Len( Aniv ) }

id=code>id=code>

Só não sei onde

Obrigado..

Luiz Arruda - Corumba(MS)

FiveWin 9.04

[x]Harbour

xDev

WS

--

ico.corumba@gmail.com

--

Não Abandone Seu Tópicoid=red>

[zekasan]

eu costumo dar um set filter no bd ou copio os registros que serão usados para outro bd e mostro depois no browse, acho mais claro prá procurar erros

FWH 8.05 - xHarbour - xDev - VLib

[Luiz Arruda (ICO)]

Resolvido..

O bobo aquia tava montando errado , o correto é

Redefine ListBox olbx Fields aNiv[oLbx][1],aNiv[olbx][2]

id=code>id=code>

Obrigado a todos..

Luiz Arruda - Corumba(MS)

FiveWin 9.04

[x]Harbour

xDev

WS

--

ico.corumba@gmail.com

--

Não Abandone Seu Tópicoid=red>