Kbelo Posted January 19, 2007 Report Share Posted January 19, 2007 Pessoal existiria algum comando como o delete all for qtd=0 mas para um vetor ??? 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 Quote Link to comment Share on other sites More sharing options...
Kbelo Posted January 19, 2007 Author Report Share Posted January 19, 2007 Pessoal existiria algum comando como o delete all for qtd=0 mas para um vetor ??? 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 Quote Link to comment Share on other sites More sharing options...
DougDba Posted January 19, 2007 Report Share Posted January 19, 2007 Ola, Não conheço nenhum comando deste, mas vc pode fazer uma função utilizando um array temporario, eu mesmo ja precisei fazer algo assim. Sds, "Não subestime seu usuário. Aprenda com ele." Doug Cajamar - SP FWH / xHarbour 0.99.61 Msn-dba2000@hotmail.com Quote Link to comment Share on other sites More sharing options...
Kbelo Posted January 19, 2007 Author Report Share Posted January 19, 2007 Hoje eu faço assim ncont:=len(vetor) For x:=1 to ncont if vetor[x,2]==0 tiralinha(vetor,x)// função que deleta a linha ncont:=len(vetor) x:=x-1 endif next id=code>id=code>se fosse com dbf faria delete all for ...=0 é isso que quero em vez de ter esse for gostaria de algo que ja fizesse isso. 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 19/01/2007 14:24:51 Quote Link to comment Share on other sites More sharing options...
gunafe Posted January 19, 2007 Report Share Posted January 19, 2007 Boa tarde, Eu faço assim: // Atualiza ARRAY do Listbox IF cItem != '00' m->op:REGI := Val( cItem ) m->op:REGF := Val( cItem ) Else m->op:REGI := 1 m->op:REGF := Len( aItensPedido ) EndIF For X := m->op:REGI To m->op:REGF Adel( aItensPedido[ oLbx:nAt ][1] ) Adel( aItensPedido[ oLbx:nAt ][2] ) Adel( aItensPedido[ oLbx:nAt ][3] ) Adel( aItensPedido[ oLbx:nAt ][4] ) Adel( aItensPedido[ oLbx:nAt ][5] ) Adel( aItensPedido[ oLbx:nAt ][6] ) Adel( aItensPedido[ oLbx:nAt ][7] ) Adel( aItensPedido[ oLbx:nAt ] ) Adel( aItensPedido[ oLbx:nAt ][9] ) ASize( aItensPedido, Len( aItensPedido) - 1 ) Next tone( 3000, 2 ); tone( 3000, 2 ) id=code>id=code>eu deleto varias itens, no seu caso, se colocar o escopo, pode ser que de certo. []´s Luiz Augusto São José dos Pinhais - PR Harbour43 + Five2.4 + Verce Quote Link to comment Share on other sites More sharing options...
Kbelo Posted January 19, 2007 Author Report Share Posted January 19, 2007 citação:Boa tarde, Eu faço assim: // Atualiza ARRAY do Listbox IF cItem != '00' m->op:REGI := Val( cItem ) m->op:REGF := Val( cItem ) Else m->op:REGI := 1 m->op:REGF := Len( aItensPedido ) EndIF For X := m->op:REGI To m->op:REGF Adel( aItensPedido[ oLbx:nAt ][1] ) Adel( aItensPedido[ oLbx:nAt ][2] ) Adel( aItensPedido[ oLbx:nAt ][3] ) Adel( aItensPedido[ oLbx:nAt ][4] ) Adel( aItensPedido[ oLbx:nAt ][5] ) Adel( aItensPedido[ oLbx:nAt ][6] ) Adel( aItensPedido[ oLbx:nAt ][7] ) Adel( aItensPedido[ oLbx:nAt ] ) Adel( aItensPedido[ oLbx:nAt ][9] ) ASize( aItensPedido, Len( aItensPedido) - 1 ) Next tone( 3000, 2 ); tone( 3000, 2 ) id=code>id=code>eu deleto varias itens, no seu caso, se colocar o escopo, pode ser que de certo. []´s Luiz Augusto São José dos Pinhais - PR Harbour43 + Five2.4 + Verce id=quote>id=quote>Isso é o mesmo que postei acima só que faço dentro da função. *=======**=======**=======**=======** FUNCTION TiraLinha( Vetor, Item ) *=======**=======**=======**=======** If len(Vetor)==0 mensagem("Sem itens a serem excluidos!!!") return nil EndIf aDel(Vetor, Item) aSize(Vetor,LEN(Vetor)-1) Return(.t.) 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 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.