Do While - VBWEB


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Do While

Reginaldo

BELO HORIZONTE
BH - BRASIL

ENUNCIADA !

Postada em 13/04/2006 16:01 hs

Aew! Obrigado!!

Eu não sabia que o goto servia para isso também! (eu sabia usar o goto só para tratar erro)

ghost_jlp

SÃO PAULO
SP - BRASIL

Postada em 13/04/2006 16:05 hs

huahuahuahuahuahua... teve situações q usei o goto pra ser um loop improvisado...

hehehe

vivendo e aprendendo

Reginaldo

BELO HORIZONTE
BH - BRASIL

Postada em 13/04/2006 16:15 hs

Concerteza! acabei de aprender e me ajudou demais....

At+

Reginaldo

LCRamos

GOIANIA
GO - BRASIL

ENUNCIADA !

Postada em 15/04/2006 02:37 hs

Do While Not EOF(Arq_texto)

Line Input #Arq_texto, Linha

       If CHKmenor.Value = 1 Then
             If Val(Mid(Linha, 71, 4)) < Val(TXTinter3.Text) Then
             'aqui eu quero continuar o loop sem rodar a rotina abaixo

End If
Else

             if
                TBmercadoria.AddNew
               TBmercadoria!codigo = Mid(Linha, 1, 35)
                TBunimed.Update
             End If

End if

Loop

vlu//

Jose.Niz

CURITIBA
PR - BRASIL

ENUNCIADA !

Postada em 15/04/2006 18:24 hs

Um pequeno ajuste na posição do label "VoltaLoop":

Do While Not EOF(Arq_texto)
VotalLoop:
       Line Input #Arq_texto, Linha
       If CHKmenor.Value = 1 Then
             If Val(Mid(Linha, 71, 4)) < Val(TXTinter3.Text) Then
             'aqui eu quero continuar o loop sem rodar a rotina abaixo
             GOTO VotalLoop
             End If
       End If
       if
        TBmercadoria.AddNew
        TBmercadoria!codigo = Mid(Linha, 1, 35)
        TBunimed.Update
      End If
Loop

Outra opção que deixaria mais legível a leitura do código seria uso If/ElseIf/Else (conforme apontado pelo LCRamos) ou ainda trocar o estrutura condicional If por Case.

TÓPICO EDITADO

Página(s): 2/2 « ANTERIOR

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR