FoxPro/Visual FoxPro - GRID

Hola necesito ayuda por favor, estoy desarrollando una aplicación en Visual Foxpro 6.0, tengo un Form en el cual tengo dos cajas de texto un boton de comando y un Grid.-
Este Grid tiene los Headers ya con el título que quiero que aparezca.-

Yo desde el boton de comando luego de evaluar atraves de una consulta SQL las dos cajas de texto que tienen Fecha Desde y Fecha Hasta (esta consulta la incluyo e un cursor), a este grid le asigno la propiedad Recordsourcetype a 1 y a la popiedad Rousource "(nombre del cursor)"

Todo funciona perfecto pero para una sola consulta porque cuando sin salir del formulario intento hacer una nueva consulta, me cambia el tamaño de las columas del Grid y ademas pone en los Headers el nombre de los campos de la tabla cursor creadas por la SQL.-

¿Qué estoy haciendo mal?

Espero puedan ayudarme

Muchas Gracias

Hola: Al hacer la segunda consulta el grid "pierde" la configuración, por lo que creo la solución sería "configurar" headers , anchos, etc. por código., es decir en el momento que le asignas "..a propiedad Recordsourcetype a 1..."

Saludos.

USA ESTAS LINEAS EN EL BOTON DONDE GENERAS EL NUEVO CURSOR

SELECT fecha ,comprobante, cliente ,subtotal , vendedor FROM DATOS ORDER BY fecha INTO CURSOR DATOS

sum(subtotal) to f1
descu=f1 *(thisform.text6.value/100)
thisform.text4.value=f1
thisform.text7.value=f1 - descu
comi=thisform.text7.value *(thisform.text3.value/100)
thisform.text5.value=comi

go top
WITH thisform.grid1 /// ACA GENERAS EL NUEVO CURSOR
.RecordSource = "datos"

.Column4.inputmask = '$999,999,999.99'
.Column4.format = 'RZ'
.Column5.inputmask = '$999,999,999.99'
.Column5.format = 'RZ'

* .column1.ControlSource = "productos.nro_parte"
* .column2.ControlSource = "productos.nom_produc"
* .column3.ControlSource = "productos.codigo"
* .column4.ControlSource = "productos.precio1"
* .column5.ControlSource = "productos.stock"
*
.column1.Width = 80 // ANCHO DELA COLUMNA
.column2.Width = 220
.column3.Width = 180
.column4.Width = 80
.column5.Width = 80



ENDWITH
THISFORM.GRID1.RECORDSOURCE="DATOS"
THISFORM.GRID1.REfresh


THISFORM.GRID1.READONLY=.F.

SALUDOS

Al realizar la consulta, internamente el archivo se cierra y vuelve a abrir, por eso el GRID se... 'desconfigura', por así decirlo.

Justo antes de realizar la consulta, pon la propiedad

Thisform.BindControls= .f.

Haz la consulta, y al terminar vuelve a dejar:

Thisform.BindControls= .t.

y un refresh.