Tamaño de columnas en grid

06/07/2004 - 23:01 por Leopoldo Sánchez | Informe spam
Hola

Mi problema es que en un formularo tengo un grid, en el inicio del
formulario realizo
esta busqueda:

SELECT base1
SELECT * FROM base1 WHERE cantidad > 0 INTO CURSOR Resultado
IF _TALLY > 0
thisform..grid1.RecordSource="Resultado"
ELSE
MESSAGEBOX ("No Hay Productos",48,"Error")
ENDIF

Mi problema es que las columnas se me cambian de tamaño, bueno, el grid no
respeta la configuración que le dí en la ventana propiedades, cheque el
artículo:
Restaurar el origen de datos de una grilla
Enviado por: Luis María Guayán
http://www.portalfox.com/article.php?sidS2

hice los métodos (que solo me deja crearlos en el formulario, no en el
grid), y puse los codigos de preservar y
restaurar columnas, en sus respectivos métodos, luego modifiqué el inicio
del formulario y me quedó así:

ThisForm.Grid1.PreservarColumnas()
ThisForm.Grid1.Tag = ThisForm.Grid1.RecordSource
ThisForm.Grid1.RecordSource = ""

SELECT base1
SELECT * FROM base1 WHERE cantidad > 0 INTO CURSOR Resultado
IF _TALLY > 0
thisform.grid1.RecordSource="Resultado"
ELSE
MESSAGEBOX ("No Hay Productos",48,"Error")
ENDIF

ThisForm.Grid1.RecordSource = ThisForm.Grid1.Tag
ThisForm.Grid1.RestaurarColumnas()
ThisForm.Grid1.Refresh

Que creen que pueda ser?

Gracias por su ayuda.



Leopoldo Sánchez
Nuevo León, México
 

Leer las respuestas

#1 Leopoldo Sánchez
07/07/2004 - 16:45 | Informe spam
Les agradesco la ayuda, alfin lo logre, asi es como me quedo al final. sin
tener que agregar los métodos:

Thisform.grid1.RecordSource = ""
SELECT base1
SELECT * FROM base1 WHERE base1.cantidad > 0 ORDER BY producto INTO CURSOR
Resultado
IF _TALLY > 0
thisform.grid1.RecordSource = "Resultado"
thisform.grid1.column1.ControlSource = "resultado.producto"
thisform.grid1.column2.ControlSource = "resultado.talla"
thisform.grid1.column3.ControlSource = "resultado.proveedor"
thisform.grid1.column4.ControlSource = "resultado.cantidad"
ELSE
MESSAGEBOX ("No Hay Productos",48,"Error")
ENDIF

Aparte, tenía una propiedad de la grid, RecordSourceType en promp y debe ser
alias, les agradesco de nuevo su ayuda








"Leopoldo Sánchez" wrote in message
news:
Hola

Mi problema es que en un formularo tengo un grid, en el inicio del
formulario realizo
esta busqueda:

SELECT base1
SELECT * FROM base1 WHERE cantidad > 0 INTO CURSOR Resultado
IF _TALLY > 0
thisform..grid1.RecordSource="Resultado"
ELSE
MESSAGEBOX ("No Hay Productos",48,"Error")
ENDIF

Mi problema es que las columnas se me cambian de tamaño, bueno, el grid no
respeta la configuración que le dí en la ventana propiedades, cheque el
artículo:
Restaurar el origen de datos de una grilla
Enviado por: Luis María Guayán
http://www.portalfox.com/article.php?sidS2

hice los métodos (que solo me deja crearlos en el formulario, no en el
grid), y puse los codigos de preservar y
restaurar columnas, en sus respectivos métodos, luego modifiqué el inicio
del formulario y me quedó así:

ThisForm.Grid1.PreservarColumnas()
ThisForm.Grid1.Tag = ThisForm.Grid1.RecordSource
ThisForm.Grid1.RecordSource = ""

SELECT base1
SELECT * FROM base1 WHERE cantidad > 0 INTO CURSOR Resultado
IF _TALLY > 0
thisform.grid1.RecordSource="Resultado"
ELSE
MESSAGEBOX ("No Hay Productos",48,"Error")
ENDIF

ThisForm.Grid1.RecordSource = ThisForm.Grid1.Tag
ThisForm.Grid1.RestaurarColumnas()
ThisForm.Grid1.Refresh

Que creen que pueda ser?

Gracias por su ayuda.



Leopoldo Sánchez
Nuevo León, México



Preguntas similares