Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Return to a line
Message
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Return to a line
Versions des environnements
Visual FoxPro:
VFP 9 SP2
Divers
Thread ID:
01273110
Message ID:
01273110
Vues:
55
How can I mark and then return to a line of my VFP program as we do in Pascal ?

FOR exemple, in the program below I would like to go back to line LINE 4,
in case NOT FILE (LINE 7)

*********************************************
IF FILE (bkpc_path)
caminho_rest = bkpc_path

else
dire1 = GETDIR("C:\" , [choose folder], [Seleção], 1) && LINE 4
caminho_rest = dire1 + thisform.text2.Value


DO CASE

CASE NOT FILE (dire1 + thisform.text2.Value) && LINE 7

= MESSAGEBOX ("O arquivo não encontra no local selecionado. Selecione outro local")

THISFORM.LABEL1.Visible = .F.
THISFORM.COMMAND3.ENABLED = .T.
THISFORM.COMMAND5.ENABLED = .T.
thisform.refresh


RETURN

OTHERWISE
endcase

ENDIF
***************************************************
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform