Information générale
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
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
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement