FoxPro/Visual FoxPro - Boton Guardar en Visual Fox Pro

Hola! soy un joven programador y quisiera que me asisitieran con esto mi boton guardar esta todo bien y todo bien pero cuando reviso la tabla se nota que tiene espacios en blanco y que mis datos estan muy abajo quisiera que desapareciaran esos espacios en blanco y poner el orden de la tabla normal me ayudan? este es mi codigo

SELECT tablak
PUBLIC tablak

codigo = thisform.txtCodigo.value
locate for alltrim(codigo)==alltr(thisform.txtCodigo.Value)
IF FOUND() then
MESSAGEBOX ("Codigo ya existe", 0, " Alerta ")
thisform.txtCodigo.SetFocus
ELSE
APPEND BLANK
Replace codigo with thisform.txtCodigo.Value
Replace nombre with thisform.txtNombre.Value
replace edad WITH thisform.txtEdad.Value
replace curso WITH thisform.txtCurso.Value
replace seccion WITH thisform.txtSeccion.Value

thisform.txtCodigo.value = ""
thisform.txtNombre.value = ""
thisform.txtEdad.value = ""
thisform.txtCurso.value = ""
thisform.txtSeccion.value = ""
thisform.txtCodigo.SetFocus
thisform.Refresh
ENDIF

Quita el APPEND BLANK, se supone que existe un boton NUEVO, alli le das el APPEND BLANK.


SELECT tablak
PUBLIC tablak
*
codigo = thisform.txtCodigo.value
locate for alltrim(codigo)==alltr(thisform.txtCodigo.Value)
IF FOUND() then
....MESSAGEBOX ("Codigo ya existe", 0, " Alerta ")
....thisform.txtCodigo.SetFocus
ELSE
....Replace codigo with thisform.txtCodigo.Value, ;
........nombre with Thisform.txtNombre.Value, edad WITHthisform.txtEdad.Value, ;
........curso WITH thisform.txtCurso.Value, seccion WITH thisform.txtSeccion.Value
*
...STORE '' TO thisform.txtCodigo.value, thisform.txtNombre.value, ;
........thisform.txtEdad.value, thisform.txtCurso.value, thisform.txtSeccion.value
...thisform.txtCodigo.SetFocus
...thisform.Refresh
ENDIF

Un poco más prolijo.

1) Por qué PUBLIC tablak?
2) La llamada al método Thisform.refresh debe ocurrir lo menos posible, y en general, nunca. En este caso, al no haber controles liados por ControlSource, thisform.refresh no se necesita porque estás asignando directamente la propiedad .Value. Reserva Refresh para los controles que utilicen ControlSource y en lo posible, pide el refresh de cada control que lo necesite y no de todo el formulario.
3) En lugar de Append Blank / Replace, utiliza INSERT INTO. Estudia este comando que te librará de muchos problemas en el futuro. Además, es más rápido.
4) Si necesitas utilizar, por lo que fuere, una serie de sentencias replace, por ejemplo:

En lugar de esta escritura:
Replace codigo with thisform.txtCodigo.Value
Replace nombre with thisform.txtNombre.Value
replace edad WITH thisform.txtEdad.Value
replace curso WITH thisform.txtCurso.Value
replace seccion WITH thisform.txtSeccion.Value

utiliza esta forma, con un solo REPLACE. Será mucho más rápido porque habrá solo una verificación de estado de bloqueo del registro.
Replace codigo with thisform.txtCodigo.Value,;
nombre with thisform.txtNombre.Value,;
edad WITH thisform.txtEdad.Value,;
curso WITH thisform.txtCurso.Value,;
seccion WITH thisform.txtSeccion.Value

Esta será todavía más rápida porque no necesita buscar la referencia de objeto en cada replace. Agrupa las referencias comunes.

Con Insert Into, tu código quedaría así.