Problema con Grid Visual Fox
Hola Experto!
Solicito tu apoyo. Tengo un programa para hacer modificaciones en los registros de una tabla mostrada mediante un grid. Estoy utilizando el siguiente script:
Evento Init
close databases
select * from descuentos into cursor temporal
thisform.grid1.recordsourcetype = 1
thisform.grid1.recordsource = "temporal"
Thisform.grid1.ReadOnly = .f.
Thisform.grid1.Refresh
Si se muestra la información, pero no me deja modificar ningún registro. Me aparece en la parte de abajo el mesaje " The control is read-only"
¿Qué puedo hacer?
Saludos.
Solicito tu apoyo. Tengo un programa para hacer modificaciones en los registros de una tabla mostrada mediante un grid. Estoy utilizando el siguiente script:
Evento Init
close databases
select * from descuentos into cursor temporal
thisform.grid1.recordsourcetype = 1
thisform.grid1.recordsource = "temporal"
Thisform.grid1.ReadOnly = .f.
Thisform.grid1.Refresh
Si se muestra la información, pero no me deja modificar ningún registro. Me aparece en la parte de abajo el mesaje " The control is read-only"
¿Qué puedo hacer?
Saludos.
1 Respuesta
Respuesta de Alonso Jarrín Solís
1
Lo que estás haciendo no te sirve debido a que intentas modificar un cursor al que no se le establecieron las configuraciones para actualizar la tabla de origen lo que debes hacer es lo siguiente:
Establece las propiedades Datassesion y Buffermode de la tabla 2 valor de 2.
Abre el entorno de datos y agrega la tabla a modificar.
Establece la propiedad RecordSource del control grid con el nombre de la tabla.
Establece la propiedad RecordSourceType del control grid a 1.
Agrega un botón de comando que diga guardar y en el evento clic del botón esbribe el siguiente código:
=TableUpdate(.T., .T.)
Eso puede servirte de ayuda.
Establece las propiedades Datassesion y Buffermode de la tabla 2 valor de 2.
Abre el entorno de datos y agrega la tabla a modificar.
Establece la propiedad RecordSource del control grid con el nombre de la tabla.
Establece la propiedad RecordSourceType del control grid a 1.
Agrega un botón de comando que diga guardar y en el evento clic del botón esbribe el siguiente código:
=TableUpdate(.T., .T.)
Eso puede servirte de ayuda.
