FoxPro/Visual FoxPro - Nunca he encontrado una respuesta que solucione

 
Vista:

Nunca he encontrado una respuesta que solucione

Publicado por TITO (311 intervenciones) el 08/02/2006 22:06:25
En VFP6 tengo una grid que depende de un cursor el cual cambia segun criterio de seleccion de los datos. Al presentarse por primera vez la grid se muestran los datos normalmente, pero cuando efectúo otra seleccion de datos y por lo tanto el cursor cambia, la grid pierde los anchos de columna. ¿Como poder solucionar esto?
Les saluda atentamente,

Nota: En veriones posteriores probablemente esto esté solucionado pero como estoy enbarcado en un proyecto, a estas alturas no me puedo cambiar por multiples razones.
Tito
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Nunca he encontrado una respuesta que solucione

Publicado por Roman Suazo (2723 intervenciones) el 08/02/2006 23:05:55
La solucion que hay es usar dos cursores: uno para el grid (para preservar las propiedades) y otro para realizar las consultas algo asi:

*****Creamos un cursor vacio solo para tener la estructura vacia...

Selec * from tabla where 0=1 into cursorGridTemporal

*******Hacemos el cursor actualizable (el que usaremos en el grid...

USE DBF('cursorGridTemporal') AGAIN IN 0 ALIAS CursorGridReal

USE IN cursorGridTemporal

*********Hacemos la consulta real

Selec * from tabla where x=y into cursor DatosTemporales

*Pasamos los datos al cursor del grid

selec CursorGridReal
zap in CursorGridReal
append from ("DatosTemporales")
use in DatosTemporales
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Nunca he encontrado una respuesta que solucione

Publicado por Sebastian (31 intervenciones) el 09/02/2006 17:28:21
Porque no le pones el ancho a las columnas cuando cambias de cursor,

With thisformset.form1.grdLineas_pedido1
.Column1.Width = 60
.Column2.Width = 270
.Column3.Width = 70
.Column4.Width = 60
.Column5.Width = 46
.Column6.Width = 70
.Column7.Width = 60
.Column8.Width = 75

asi por ejemplo, y listo problema solucionado
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Nunca he encontrado una respuesta que solucione

Publicado por Saul (362 intervenciones) el 09/02/2006 20:21:26
Hola checa este link hay esta tu respuesta..

http://www.portalfox.com/modules.php?op=modload&name=News&file=article&sid=532
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar