FoxPro/Visual FoxPro - problemas conuna grilla

   
Vista:

problemas conuna grilla

Publicado por cristhian obregoso (25 intervenciones) el 13/05/2008 17:47:05
tengo un problema en la grilla, y es cuando doy click en el text de la columna 1 no me hace nada, y le pongo un messagebox para ver si esta entrando, no me lo muestra, y la verdad no se por, sera que habra que activarle una propiedad despues de llenarlo con una cursor

este es el codigo que esta. grid->header->column1->text1->clcik
IF USED('dpto1')
GO RECNO()
thisform.pageframe1.page1.txtcodpro.Value=dpto1.codigo1
thisform.pageframe1.page1.txtdescripcion.Value=dpto1.descripcion1

ENDIF
_

y este es el codigo con lo cual lleno la grilla y esta en el init del formulario. gracias...

_sql="select P.prod_codigo as codigo1,P.prod_descripcion as descripcion1,M.medi_descripcion as medi1,P.prod_vpublico as vp1,P.prod_stockmin as stc1 "
_sql2="from producto as P,medida as M where prod_existencia='1' and P.medida_medi_codigo=M.medi_codigo order by prod_descripcion"
x=SQLEXEC(cnx,_sql+_sql2,'dptos1')
IF x<>1 then
AERROR(g)
MESSAGEBOX(g(2))
ELSE
thisform.pageframe1.page1.grid1.RecordSourceType= 1
thisform.pageframe1.page1.grid1.ColumnCount =5
thisform.pageframe1.page1.grid1.RecordSource='dptos1'
thisform.pageframe1.page1.grid1.FontName= "Tahoma"
thisform.pageframe1.page1.grid1.ReadOnly= .F.

thisform.pageframe1.page1.grid1.column1.width=50
thisform.pageframe1.page1.grid1.column2.width=250
thisform.pageframe1.page1.grid1.column3.width=80
thisform.pageframe1.page1.grid1.column4.width=80
thisform.pageframe1.page1.grid1.column5.width=80

thisform.pageframe1.page1.grid1.column1.header1.fontname="tahoma"
thisform.pageframe1.page1.grid1.column2.header1.fontname="tahoma"
thisform.pageframe1.page1.grid1.column3.header1.fontname="tahoma"
thisform.pageframe1.page1.grid1.column4.header1.fontname="tahoma"
thisform.pageframe1.page1.grid1.column5.header1.fontname="tahoma"

thisform.pageframe1.page1.grid1.column1.header1.FontBold= .T.
thisform.pageframe1.page1.grid1.column2.header1.FontBold= .T.
thisform.pageframe1.page1.grid1.column3.header1.FontBold= .T.
thisform.pageframe1.page1.grid1.column4.header1.FontBold= .T.
thisform.pageframe1.page1.grid1.column5.header1.FontBold= .T.

thisform.pageframe1.page1.grid1.column1.header1.alignment=2
thisform.pageframe1.page1.grid1.column2.header1.alignment=2
thisform.pageframe1.page1.grid1.column3.header1.alignment=2
thisform.pageframe1.page1.grid1.column4.header1.alignment=2
thisform.pageframe1.page1.grid1.column5.header1.alignment=2

thisform.pageframe1.page1.grid1.column1.header1.Caption="Codigo"
thisform.pageframe1.page1.grid1.column2.header1.Caption="Descripcion"
thisform.pageframe1.page1.grid1.column3.header1.Caption="Medida"
thisform.pageframe1.page1.grid1.column4.header1.Caption="Precio"
thisform.pageframe1.page1.grid1.column5.header1.Caption="Stock"
ENDIF
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:problemas conuna grilla

Publicado por Neo (26 intervenciones) el 13/05/2008 18:19:00
Hola Cristhian, noto que el problema que tienes es que estas usando dos nombres distintos para hacer las comprobaciones, o sea tu cursor se llama DPTOS1 pero en la validacion del evento CLICK del TEXT en la COLUMN1 estas usando DPTO1, debes unificar el nombre y ya esta, Exitos.
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:problemas conuna grilla

Publicado por jose camilo (688 intervenciones) el 14/05/2008 01:24:51
En la ayuda explica que casi todas las propiedades del grid se inicializan al recargar un select .... por lo k recomiendan hacer esto
thisform.pageframe1.page1.grid1.RecordSource= Space(0)
antes de hacer una asignacion de un grid esto es para asegurarse k las mayoria de las propiedades permanezcan

suerte espero te sirva
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