Como escribir en las celdas de un Grid

Hector Hugo
25 de Octubre del 2003
hola amigos, saben, necesito usau un grid, como si fuera una hoja de exel. pero cuando corro mi formularion,y quiero escribir en las celdas,no me parpadea el curson en ellas, ya le quite la propiedad recordsourcey nada,espero me puedan ayudare lo que quiero hacer en poder ersscribir en las celdas, para luego hacer calculos con valores,que en ellas coloque, de antemano gracias, su amigo de mexico,
Hector hugo

Raul
25 de Octubre del 2003
Hola Hector Hugo:
Para que puedas ver el cursor tienes que enviarle el enfoque a la columna del grid donde quieras modificar.
Tal vez esta pequeña parte de codigo te puede ayudar:
WITH THISFORM
.contaescoge.grid1.REFRESH
.contaescoge.grid1.VISIBLE=.T.
.contaescoge.VISIBLE=.T.
.contaescoge.ZORDER(0)
.contaescoge.grid1.column6.SETFOCUS
ENDWITH
****EVENTO KEYPRESS DEL TEXT1 DE LA COLUMNA6
LPARAMETERS nKeyCode, nShiftAltCtrl
IF INLIST(LASTKEY(),13,5,24,4,19)
xenter=.T.
ELSE
xenter=.F.
ENDIF
****EVENTO LOSTFOCUS DE LA COLUMNA6

local nanswer
IF xenter=.T.
xenter=.F.
IF (labodesc.bondro=0 and anterior<>labodesc.perdrob)
cmessagetitle = 'Modificación de Pedidos'
cmessagetext = 'No se puede aplicar Desc. a Bonif. = 0'
ndialogtype = 0 + 64 + 0
* 0 = Boton aceptar.
* 64 = Icono de iformacion.
* 0 = boton aceptar.
nanswer = MESSAGEBOX(cmessagetext, ndialogtype, cmessagetitle)
WITH THISFORM
REPLACE labodesc.perdrob WITH 0
goto dondea
.contaescoge.grid1.column6.SETFOCUS
ENDWITH
ELSE
WITH THISFORM
REPLACE labodesc.pertotal WITH labodesc.perdrol+labodesc.perlabl,;
labodesc.pertotab WITH labodesc.perdrob+labodesc.perlabb
.contaescoge.grid1.REFRESH
ENDWITH
ENDIF
ENDIF