General information
Category:
Coding, syntax & commands
>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
>***************************************************
Moises:
That's the way you do in VB also. Try to structure your program in a way you don't need the line jumps, it leads to spagetti code and VFP doesn't support that.
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only