FoxPro/Visual FoxPro - Remplazar datos de cursor a tabla origen?

Hola a todos.
Estoy desarrollando un programa en visualfox y me surge un problema. Tengo un formulario en el que tengo un Grid y en ese grid quiero ser capaz de poder modificar los datos y que se me guarden.

Estoy usando un cursor y tablas DBF. Consigo pasar los datos de la tabla al cursor y modifcarlos pero despues no se como poder volver a pasar los datos del cursor ya modificados a la tabla remplazando los viejos.

Este es el codigo que estoy usando:

INIT:

SELECT * FROM facturaa AS alias2 WHERE nfactura=xx AND re1=SPACE(50) AND linea<9000 into cursor My_cursor READWRITE
Select My_cursor
thisform.grid1.recordsourcetype=0
thisform.grid1.recordsource=""
Thisform.griD1.RecordSourceType = 1
ThisForm.griD1.Recordsource = "My_cursor"
thisform.griD1.ColumnCount=5
thisform.griD1.Columns[1].controlsource="cod_mo"
THISFORM.GRID1.Columns[2].controlsource="rep1"
THISFORM.GRID1.Columns[3].controlsource="eprecio1"
THISFORM.GRID1.Columns[4].controlsource="tmo1"
THISFORM.GRID1.Columns[5].controlsource="seccion"
thisform.griD1.Columns[1].header1.caption="Cod_mo"
thisform.griD1.Columns[2].header1.caption="Concepto"
thisform.griD1.Columns[3].header1.caption="Precio"
thisform.griD1.Columns[4].header1.caption="T.M.O"
thisform.griD1.Columns[5].header1.caption="Sec."
thisform.grid1.Columns[1].width=80
thisform.grid1.Columns[2].width=400
thisform.grid1.Columns[3].width=80
thisform.grid1.Columns[4].width=40
thisform.grid1.Columns[5].width=20




Si me pudieran ayudar se lo agradeceria enormemente. Muchas gracias

Para tablas dbf, incluso en una LAN, puedes utilizar un recurso eficiente y rápido:

USE FACTURAA IN 0 SHARED
SELECT *,RECNO() FROM facturaa AS alias2 WHERE nfactura=xx AND re1=SPACE(50) AND linea<9000 into cursor My_cursor READWRITE

El campo en el que cae el número de registro está formado por el prefijo "EXP_" + el número de campo:
select my_Cursor
cExp="Exp_"+ltrim(str((fcount()))

Después de hacer los cambios, iría:
select my_cursor
SCAN
NGO=&cExp
scatter MEMVAR
SELECT FACTURAA
GO NGO
IF RLOCK()
GATHER MEMVAR
UNLOCK
ENDIF
ENDSCAN

Yo hace muchos a;os usaba el scatter MEMVAR con foxpro 5.0 y tengo un cliente con un programa de inventarios que todabia lo usa sin ningun problema...

en la actualidad creo un metodo llamado guardar datos, y lo que hago es recorrer el cursor con un for nex, y guardo registro por registro con un intert values.

es mas codigo, pero funciona a la perfecion y sin demoras...

tambien si son exactamente iguales tienes la opcion appen from.

hay muchas posibilidades y todas implican escribir mas codigo.




se vee mal tabulado por que es parte de un codigo mucho mas grande... tambien vale la opcion de Fidel.

Esta alternativa es más completa. Si se agrega un registro al cursor, el campo de control de número de registro quedará en cero.

Hola,

Trate de usar vuestros codigo en un formulario que tengo y que requiere una situacion similar a la presentada aqui.

Pero no me funciona.

En mi caso, tengo lo siguiente:

Select * from Almcitas where (fecha=this.value .AND. !DELETED()) order by fecha into CURSOR _citas READWRITE

Sele _Citas
Thisform.PgfFicha.Page1.Grid1.Recordsource="_Citas"
Thisform.PgfFicha.Page1.Grid1.Column1.enabled=.F.
Thisform.PgfFicha.Page1.Grid1.Column2.enabled=.F.

Se abre el grid con los datos cargados segun la condicion en del cursor.

Aqui yo puedo editar datos o rellenar los registros. Este es un control de citas medicas, y cuando se introduce la fecha para la nueva cita, antes de llenar el cursor, el sistema revisa si ya hay citas planeadas para ese dia...si no lo hay se abren 12 registros para ser llenados., es decir, que no es que se añaden registros nuevos, sino que simplemente se llenan con los datos del patiente.

Luego en el EVENTO GRABAR.CLICK tengo lo siguiente:

Sele AlmCitas
Go Top

Delete all for fecha=thisform.pgfFicha.Page1.txtFchInit.value (eSTE ES EL VALOR DE FECHA)
Append from DBF("_Citas")

SELECT _CITAS
ZAP


pero creo que con su codigo es mas seguro, pero me da errores.

Si me pueden ayudar,

Agradecido