FoxPro/Visual FoxPro - Distorcion de Grid

Saludos a todos;

Tengo una consulta, y cuando encuentro el ó los registro especificado y luego inserto en el grid se me distorciona el Grid1.

Necesito saber puedo hacer para que no se me distorciones el Grid

Enviar codigo;

Agradecesu su Gentileza,
Juan Pablo Gonzalez

http://www.portalfox.com/modules.php?op=modload&name=News&file=article&sid=532&mode=nested&order=0&thold=0

Hola amigo

creo que tienes distorcion en la presentacion mas no en los datos entonces lo que debes hace es asignar a cada una de las columnas el campo que le corresponde masomenos asi

Supongamos que tines una tabla llanda CLIENTE con campos con : cod_cli,nombre,direccion,telefono

haces tu consulta y lo mandas a un cursor asi

SELECT * FROM CLIENTE WHERE NOMBRE="CARLOS" INTO CURSOR CUR_CLI

Luego asignas los campos a el grid

WITH THISFORM.GRID1
.RECORDSOURCE="CURCLI"
.COLUMN1.CONTROLSOURCE='CURCLI.COD_CLI'
.COLUMN2.CONTROLSOURCE='CURCLI.NOMBRE'
.COLUMN3.CONTROLSOURCE='CURCLI.DIRECCION'
.COLUMN4.CONTROLSOURCE='CURCLI.TELEFONO'
.REFRESH
ENDWITH
*******************************************
PERO ANTES EN EL EVENTO INIT DE TU GRID TIENES QUE COLOCAR A LA GRIS SIN REFERENCIA DE DATOS :

WITH THISFORM.GRID1
.RECORDSOURCE=""
.COLUMN1.CONTROLSOURCE=''
.COLUMN2.CONTROLSOURCE=''
.COLUMN3.CONTROLSOURCE=''
.COLUMN4.CONTROLSOURCE=''
ENDWITH
**********************************
DE TAL MANERA QUE CADA VEZ QUE REALICES UNA CONULTA PUEDAD PRIMERO EJACUTAR EN INIT DEL GRIS Y LUEGO LA CONSULTA

THISFORM.GRID1.INIT
THISFORM.CONSULTA

Y listo ojala lo pruebes y vas a aver que funciina... ok