ayuda grid
Publicado por k (26 intervenciones) el 23/11/2006 02:17:25
Que tal amigos.
Estoy trabajando con un grid, hago algunos calculos y los envio a una tabla que esta enlazada al GRID. El detalle es que al hacer las modificaciones a la tabla, el GRID se pone totalmente blanco (sin columnas ni nada). A continuacion anexo el codigo
**************************************************************
USE simtab.dbf EXCLUSIVE AGAIN
*thisform.grid1.recordsource = ""
LOCAL tmp as float
*Calculando abonos
GO top
FOR i = 1 to VAL(thisform.text8.Value)
replace simtab.abono WITH thisform.text9.Value / VAL(thisform.text8.Value)
IF i=1
replace simtab.sdo_ant WITH thisform.text9.Value
replace simtab.interes WITH thisform.text9.Value * .02
ELSE
replace simtab.sdo_ant WITH tmp
replace simtab.interes WITH tmp * .02
endif
replace simtab.pago WITH simtab.abono + simtab.interes
replace simtab.sdo_desp WITH simtab.sdo_ant - simtab.abono
tmp = simtab.sdo_desp
skip
ENDFOR
*thisform.grid1.recordsource = "simtab"
*************************************************************
Espero me puedan ayudar.
Gracias de antemano.
Estoy trabajando con un grid, hago algunos calculos y los envio a una tabla que esta enlazada al GRID. El detalle es que al hacer las modificaciones a la tabla, el GRID se pone totalmente blanco (sin columnas ni nada). A continuacion anexo el codigo
**************************************************************
USE simtab.dbf EXCLUSIVE AGAIN
*thisform.grid1.recordsource = ""
LOCAL tmp as float
*Calculando abonos
GO top
FOR i = 1 to VAL(thisform.text8.Value)
replace simtab.abono WITH thisform.text9.Value / VAL(thisform.text8.Value)
IF i=1
replace simtab.sdo_ant WITH thisform.text9.Value
replace simtab.interes WITH thisform.text9.Value * .02
ELSE
replace simtab.sdo_ant WITH tmp
replace simtab.interes WITH tmp * .02
endif
replace simtab.pago WITH simtab.abono + simtab.interes
replace simtab.sdo_desp WITH simtab.sdo_ant - simtab.abono
tmp = simtab.sdo_desp
skip
ENDFOR
*thisform.grid1.recordsource = "simtab"
*************************************************************
Espero me puedan ayudar.
Gracias de antemano.
Valora esta pregunta


0