Luiz Arruda (ICO) Posted July 15, 2009 Report Share Posted July 15, 2009 Boa Tarde a todos Como que coloco + de 1 coluna num listBox simples usando array ?? Se faço assim; cItens:={} While(FETAG->(!Eof() )) aadd(cItens,FETAG->NOME+" "+Trans(FETAG->Salfolha,"9,999.99")) FETAG->(dbSkip(1)) EndDo id=code>id=code> Redefine ListBox olbx Fields cItens[oLbx] ID 4003 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( CiTENS ) } id=code>id=code>até mostra as duas mas vira uma bagunça danada, não alinha as colunas Joao das quantas 510,00 Jose fulano 510,00 e eu queria que ficasse assim João das quantas 510,00 Jose Fulano 510,00id=code>id=code>Obrigado.. Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted July 15, 2009 Author Report Share Posted July 15, 2009 Boa Tarde a todos Como que coloco + de 1 coluna num listBox simples usando array ?? Se faço assim; cItens:={} While(FETAG->(!Eof() )) aadd(cItens,FETAG->NOME+" "+Trans(FETAG->Salfolha,"9,999.99")) FETAG->(dbSkip(1)) EndDo id=code>id=code> Redefine ListBox olbx Fields cItens[oLbx] ID 4003 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( CiTENS ) } id=code>id=code>até mostra as duas mas vira uma bagunça danada, não alinha as colunas Joao das quantas 510,00 Jose fulano 510,00 e eu queria que ficasse assim João das quantas 510,00 Jose Fulano 510,00id=code>id=code>Obrigado.. Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
aferra Posted July 15, 2009 Report Share Posted July 15, 2009 Olá Ico, pq não coloca em duas colunas? Alessandroid=blue> FW20d+CL53b+Blk7+@Say+CDX FW9.02+xHb110+@Say+CDX "O fracasso jamais me surpreenderá, se minha vontade de vencer for suficientemente forte..."id=red> Quote Link to comment Share on other sites More sharing options...
atnsoft Posted July 15, 2009 Report Share Posted July 15, 2009 Ou coloca a fonte courier new AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce Quote Link to comment Share on other sites More sharing options...
Luisão Posted July 15, 2009 Report Share Posted July 15, 2009 Luiz, as duas maneiras citadas vão funcionar, mas eu prefiro a do Alessandro. Assim você consegue recuperar as informações da tabela mais facilmente quando estão em colunas separadas. While(FETAG->(!Eof() )) aadd(cItens,{FETAG->NOME+" "+Trans(FETAG->Salfolha,"9,999.99") ,; // 01 - Sua informação atual (caso esteja usando em outro lugar, mantenha) FETAG->NOME ,; // 02 - Campo 1 FETAG->Salfolha }) // 03 - Campo 2 FETAG->(dbSkip(1)) ENDDO @ 01.0,01.0 BROWSE oBrowse OF oDialog SIZE 375,145 oBrowse:SetArray(cItens) oBrowse:lCellStyle:= .T. oBrowse:lNoGrayBar:= .T. ADD COLUMN TO BROWSE oBrowse DATA ARRAY ELEM 01 SIZE 300 LEFT HEADER "Campo ICO" ADD COLUMN TO BROWSE oBrowse DATA ARRAY ELEM 02 SIZE 200 LEFT HEADER "Campo 1" ADD COLUMN TO BROWSE oBrowse DATA ARRAY ELEM 03 SIZE 100 PICT "9,999.99" CENTER HEADER "Campo 2" 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 Quote Link to comment Share on other sites More sharing options...
Marca Posted July 15, 2009 Report Share Posted July 15, 2009 Olá oLbxAgenda:bLine := {|nAt| nAt := (oLbxAgenda:nAt),If( Len(aMensagens) < 1 .OR. nAt > Len(aMensagens),Array(6),; { IF(Val(aMensagens[nAt,1]) = 0,"",hBmp ) ,; DToC( FazData( aMensagens[nAt,2] ) ) ,; Left( aMensagens[nAt,3],5) ,; aMensagens[nAt,4] ,; aMensagens[nAt,5] ,; IF( Empt(aMensagens[nAt,8]),"", hBmp2 ) } ) } Marcelo Ferro Petrópolis - Rj Fwh9.01/xHarbour 1.1.0 Simplex /SqlLib /xMate/WSe Pelles Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted July 16, 2009 Author Report Share Posted July 16, 2009 Bom dia a todos.. Ainda não consegui.. e no exemplo do Luisão tá dando nem passa na compilação tem aalgun include p/ usar Redefine Browse ?? C:\pessoal8\fonte\printamostra.prg(147) Error E0030 Syntax error: "syntax error at 'BROWSE'" C:\pessoal8\fonte\printamostra.prg(151) Error E0030 Syntax error: "syntax error at 'COLUMN'" C:\pessoal8\fonte\printamostra.prg(152) Error E0030 Syntax error: "syntax error at 'COLUMN'" C:\pessoal8\fonte\printamostra.prg(153) Error E0030 Syntax error: "syntax error at 'COLUMN'" 4 errorsid=code>id=code>Obrigado.. Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
Luisão Posted July 16, 2009 Report Share Posted July 16, 2009 Ops, esqueci... Coloque #include "TcBrowse.ch" que resolve 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 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted July 16, 2009 Author Report Share Posted July 16, 2009 Agora sim, deu certo.. do jeito que eu precisava.. é primeira vez na vida que faço algo com TcBrowse. Obrigado.. Abraços.. Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
Marca Posted July 16, 2009 Report Share Posted July 16, 2009 Luiz Não entendi Vc pediu um exemplo p. o twbrowse e a maneira q. coloquei ai p. vc funciona perfeitamente oLbxAgenda:bLine := {|nAt| nAt := (oLbxAgenda:nAt),If( Len(aMensagens) < 1 .OR. nAt > Len(aMensagens),Array(6),; { aMensagens[nAt,1]) ,; aMensagens[nAt,2] ,; aMensagens[nAt,3] } ) } mas ai vc colocou um exemplo p. o tcbrowse ?? nao era p. o twbrowse ? Marcelo Ferro Petrópolis - Rj Fwh9.01/xHarbour 1.1.0 Simplex /SqlLib /xMate/WSe Pelles Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted July 17, 2009 Author Report Share Posted July 17, 2009 citação:Luiz Não entendi Vc pediu um exemplo p. o twbrowse e a maneira q. coloquei ai p. vc funciona perfeitamente oLbxAgenda:bLine := {|nAt| nAt := (oLbxAgenda:nAt),If( Len(aMensagens) < 1 .OR. nAt > Len(aMensagens),Array(6),; { aMensagens[nAt,1]) ,; aMensagens[nAt,2] ,; aMensagens[nAt,3] } ) } mas ai vc colocou um exemplo p. o tcbrowse ?? nao era p. o twbrowse ? Marcelo Ferro Petrópolis - Rj Fwh9.01/xHarbour 1.1.0 Simplex /SqlLib /xMate/WSe Pelles id=quote>id=quote>Ola Marcelo, aconteceu que embananei com seu exemplo, não sei o que seria e não consegui fazer, peguei o exemplo do Luisão que já tava bem mastigadinho e deu certo usando o TcBrowse. e não precisou de nada apenas do include.. Alias() uma das coisas que "mata" no forum é que muitos que poe exemplo copia uma parte do codigo e cola, não explicando de onde são as variaveis e ou campos e nem como são declaradas, isso deixa qq um maluco e perdendo horas para descobrir, isso qdo. descobre. Abraços e desculpe ai.. Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Editado por - ico on 17/07/2009 14:49:29 Quote Link to comment Share on other sites More sharing options...
Marca Posted July 17, 2009 Report Share Posted July 17, 2009 citação:Alias() uma das coisas que "mata" no forum é que muitos que poe exemplo copia uma parte do codigo e cola, não explicando de onde são as variaveis e ou campos e nem como são declaradas, isso deixa qq um maluco e perdendo horas para descobrir, isso qdo. descobre. Abraços e desculpe ai.. Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Editado por - ico on 17/07/2009 14:49:29 id=quote>id=quote>Luiz Não se trata de copiar e colar não aMensagens é seimplismente meu vetor q. no seu caso é o citens Coloquei um exemplo bem simples sendo q. envidentemente era do meu fonte e bastaria vc modificar para seu browse da mesma maneira q. oLbxAgenda se refere ao meu objeto de browse q. no seu caso era o oLbx mas... Marcelo Ferro Petrópolis - Rj Fwh9.01/xHarbour 1.1.0 Simplex /SqlLib /xMate/WSe Pelles Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted July 17, 2009 Author Report Share Posted July 17, 2009 citação: citação:Alias() uma das coisas que "mata" no forum é que muitos que poe exemplo copia uma parte do codigo e cola, não explicando de onde são as variaveis e ou campos e nem como são declaradas, isso deixa qq um maluco e perdendo horas para descobrir, isso qdo. descobre. Abraços e desculpe ai.. Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Editado por - ico on 17/07/2009 14:49:29 id=quote>id=quote>Luiz Não se trata de copiar e colar não aMensagens é seimplismente meu vetor q. no seu caso é o citens Coloquei um exemplo bem simples sendo q. envidentemente era do meu fonte e bastaria vc modificar para seu browse da mesma maneira q. oLbxAgenda se refere ao meu objeto de browse q. no seu caso era o oLbx mas... Marcelo Ferro Petrópolis - Rj Fwh9.01/xHarbour 1.1.0 Simplex /SqlLib /xMate/WSe Pelles id=quote>id=quote>Pra descarrego de conciência... Não Compila o que é esse fazData ?? e esses hbmp não vao influenciar em nada ?? oLbx:bLine := {|nAt| nAt := (oLbx:nAt),If( Len(CiTENS) < 1 .OR. nAt > Len(CITENS),Array(6),; { IF(Val(CITENS[nAt,1]) = 0,"",hBmp ) ,; DToC( FazData( CiTENS[nAt,2] ) ) ,; Left( CiTENS[nAt,3],5) ,; cItens[nAt,4] ,; cItens[nAt,5] ,; IF( Empt(cItens[nAt,8]),"", hBmp2 ) } ) } Error: Unresolved external '_HB_FUN_FAZDATA' referenced from OBJ\PRINTAMOSTRA.OBJid=green>id=code>id=code>No Aguardo.. Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
Marca Posted July 17, 2009 Report Share Posted July 17, 2009 Luiz novamente reintero Isso evidentemente são situações do meu fonte FazData() é uma rotina q. pega o resultado de um sqlarray e transforma em data pos o mesmo traz em caracter Evidentemente q. vc nao pode pegar estas rotinas e aplicar diretamente em seu fonte pos elas são para o meu sistema Hbmp é uma imagem definida para apresentção no array Basta vc adequar ao seu fonte Se seu array so tem 2 elementos vc nao pode criar um array com 6 elementos como é o meu caso e sim um com dois elementos q. e Nome e Saltafolha do seu array oLbx:bLine := {|nAt| nAt := (oLbx:nAt),If( Len(CiTENS) < 1 .OR. nAt > Len(CITENS),Array(2),; { CITENS[nAt,1],; cItens[nAt,2] } ) } Simples assim Marcelo Ferro Petrópolis - Rj Fwh9.01/xHarbour 1.1.0 Simplex /SqlLib /xMate/WSe Pelles Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.