Como Usar Continue en VFP, se utiliza después de que LOCATE logra encontrar un registro, para continuar la operación de LOCATE. CONTINUE mueve el puntero del registro al siguiente registro para el cual la expresión lógica especificada en el LOCATE anterior se evalúa a Verdadero (.T.).
CONTINUE hace que se vuelva a evaluar el último comando LOCATE. El programa comprueba si el nuevo valor contenido en cIniciales ya existe en el campo id_persona de otro registro. Si es así, FOUND( ) seguirá devolviendo el valor .T. y se volverá a ejecutar el código contenido en el bucle DO WHILE. Si el nuevo valor contenido en cIniciales es efectivamente único, FOUND( ) devolverá el valor .F. y la ejecución del programa continuará con la línea de código que figura a continuación de ENDDO.
CONTINUE puede repetirse hasta que se encuentre el final del archivo, o hasta que se alcance el final del ámbito especificado con LOCATE.
Si CONTINUE logra encontrar un registro, RECNO( ) devuelve el número de registro del mismo, FOUND( ) devuelve un valor de Verdadero (.T.), y EOF( ) devuelve un valor de Falso (.F.).
Si CONTINUE no logra encontrar un registro, RECNO( ) devuelve el número de registros de la tabla más uno, FOUND( ) devuelve Falso (.F.), y EOF( ) devuelve Verdadero (.T.).
SET TALK OFF SET CONFIRM OFF SET SAFETY off SET DELETED on Create Table vispre Free (i1 c(20),i2 c(20), i3 c(20),i4 c(20),i5 c(20), i6 c(20), i7 c(20) ) Set Devi To File "temp.txt" x=1 @ x,3 Say "Pais Continente" x=x+1 @ x,1 say REPLICATE("-",30) Select paises Go Top Do While !Eof() @ x,3 Say pais+" "+continente Skip Enddo Set Devi To Screen Select "vispre" Append From "temp.txt" Sdf Thisform.grid1.RecordSource="vispre" Go Top Thisform.Refresh Thisform.grid1.column1.text1.SetFocus
