maudruidas Posted November 21, 2006 Report Share Posted November 21, 2006 PESSOAL SEMPRE USEI O LISBOX PARA CONSULTAR MINHAS TABELAS (DBF) ONDE USO O WS. C/ FIELDS E HEADERS. AGORA PRECISO FAZER ALGO MAIS SIMPLES E NÃO ESTOU SABENDO COMO. VEJAM: PRECISO CRIAR APENAS UMA TABELA DE 2 COL. POR 4 LINHAS COM VALORES FIXOS, APENAS P/ CONSULTAR, COMO FAÇO ? SE FOR COM O LISTBOX O QUE USO NO LUGAR DO FIELDS, SE NÃO EXISTE DBF ? OBRIGADO... MaurÃcio de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br CLIPPER 5.3 FWH 2.4 BLINKER 7.0 Workshop 4.5 Quote Link to comment Share on other sites More sharing options...
maudruidas Posted November 21, 2006 Author Report Share Posted November 21, 2006 PESSOAL SEMPRE USEI O LISBOX PARA CONSULTAR MINHAS TABELAS (DBF) ONDE USO O WS. C/ FIELDS E HEADERS. AGORA PRECISO FAZER ALGO MAIS SIMPLES E NÃO ESTOU SABENDO COMO. VEJAM: PRECISO CRIAR APENAS UMA TABELA DE 2 COL. POR 4 LINHAS COM VALORES FIXOS, APENAS P/ CONSULTAR, COMO FAÇO ? SE FOR COM O LISTBOX O QUE USO NO LUGAR DO FIELDS, SE NÃO EXISTE DBF ? OBRIGADO... MaurÃcio de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br CLIPPER 5.3 FWH 2.4 BLINKER 7.0 Workshop 4.5 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted November 21, 2006 Report Share Posted November 21, 2006 VEJA NO \SAMPLES\TESTLBX?.* João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
maudruidas Posted November 23, 2006 Author Report Share Posted November 23, 2006 KAP OLHEI TODOS OS EXEMPLOS, MAS NÃO CHEGUEI NUM ACORDO. CONSEGUI CRIAR UMA LINHA, MAS COMO FAZER AS OUTRAS ? REDEFINE LISTBOX OLBX FIELDS " 0 ","ISENTO" ; //CODIGO,DESCRICAO; HEADERS "Código",SPACE(15)+"Tipo de Tributação"; CURSOR OCUR COLORS CLR_BLACK,BRWBACK FONT OGETFNT ID 14; SIZES 47,184 OF ODLGM OLBX:AJUSTIFY := {0,0,0,0,0,0} OLBX:NCLRPANE := COR1 OLBX:NLINESTYLE := 3 // TIPO DE LINHA DA GRADE OLBX:NCLRBACKHEAD := COR2 // COR DO FUNDO DO CABEÇALHO OLBX:NCLRBACKFOCUS := CLR_BLUE // COR DO CURSOR EM CIMA DO ÖTEM OLBX:NCLRFOREFOCUS := CLR_WHITE // COR DA LETRA DA BARRA ATIV MaurÃcio de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br CLIPPER 5.3 FWH 2.4 BLINKER 7.0 Workshop 4.5 Quote Link to comment Share on other sites More sharing options...
DougDba Posted November 23, 2006 Report Share Posted November 23, 2006 Ola !!! No lugar dos campos das tabelas, crie um array contendo as informacoes que vc precisa, depois basta informar no listbox as coordenadas do array. Doug "Não subestime seu usuário. Aprenda com ele." IV Encontro de Programadores FiveWin "I´ll be there" Doug Cajamar - SP FWH / xHarbour 0.99.61 Msn-dba2000@hotmail.com Quote Link to comment Share on other sites More sharing options...
kapiaba Posted November 23, 2006 Report Share Posted November 23, 2006 VEJA NO \SAMPLES\TESTARR*.* João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Kbelo Posted November 23, 2006 Report Share Posted November 23, 2006 VLISTA:={} AADD(VLISTA,{"A1","B1","C1"}) AADD(VLISTA,{"A2","B2","C2"}) AADD(VLISTA,{"A3","B3","C3"}) AADD(VLISTA,{"A4","B4","C4"}) DEFINE DIALOG ODLG ... REDEFINE LISTBOX Obrw; FIELDS (VLISTA[Obrw]),; (VLISTA[Obrw]),; (VLISTA[Obrw]); HEADERS "Meu Campo1","Meu campo2","E o Campo 3" ; Font Load_Obj(4); OF ODLG ID 102; ON LEFT DBLCLICK (MinhaFuncao()) Obrw:nLineStyle:= 3 Obrw:nAt := 1 Obrw:bGoTop := { || Obrw:nAt := 1 } Obrw:bGoBottom := { || Obrw:nAt := Eval( Obrw:bLogicLen ) } Obrw:bSkip := { | nWant, nOld | nOld := Obrw:nAt, Obrw:nAt += nWant,Obrw:nAt := Max( 1, Min( Obrw:nAt, Eval( Obrw:bLogicLen ) ) ),Obrw:nAt - nOld } Obrw:bLogicLen := { || Len( vLista ) } ... id=code>id=code>Marcelo Michels celo.michels@ibestvip.com.br celo.michels@hotmail.com marcelo@lorenzi.com.br -> Lorenzi Soluções Têxteis <- Criciuma - SC xHarbour build 0.99.2 + WS Editado por - kbelo on 23/11/2006 14:18:51 Quote Link to comment Share on other sites More sharing options...
maudruidas Posted November 23, 2006 Author Report Share Posted November 23, 2006 Valeeeeu galera, mais uma vez, deu certo. Muito obrigado. MaurÃcio de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br CLIPPER 5.3 FWH 2.4 BLINKER 7.0 Workshop 4.5 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.