QUE PUEDO HACER EN ESTE CASO
Publicado por PILAR (22 intervenciones) el 03/08/2006 16:19:34
HOLA QUE TAL TENGO MI BOTON GUARDAR PERO TAMBIEN TENGO VARIAS TABLAS ENTONCES POR ESO UTILIZO UN DO CASE
MI PROBLEMA ES QUE SI ME AGREGA UNO NUEVO PERO NO LO GUARDA ES DECIR A LA HRA DE DARLE GUARDAR NO ME GUARDA A QUE SE DEBE
SE LOS AGRADEZCO MUCHO
PILAR
ESTE ES EL CODIGOQ UE TENGO
tablita=thisform.Combo1.value
do case
case tablita="tubogalvanizado"
private tubogalvanizado &&OJO
tubogalvanizado =Thisform.Grid1.recordsource &&OJO
if thisform.command1.caption="NUEVO"
thisform.text1.enabled=.t.
thisform.text2.enabled=.t.
thisform.text3.enabled=.t.
thisform.text4.enabled=.t.
go bottom
thisform.refresh
append blank
thisform.command1.caption="guardar"
SELECT tubogalvanizado&&OJO
replace tubogalvanizado.nombre with thisform.text1.value, tubogalvanizado.medida with thisform.text2.value, tubocobretm.preciotubo with thisform.text3.value, tubogalvanizado.preciometro with thisform.text4.value
thisform.Grid1.refresh
endif
endcase
MI PROBLEMA ES QUE SI ME AGREGA UNO NUEVO PERO NO LO GUARDA ES DECIR A LA HRA DE DARLE GUARDAR NO ME GUARDA A QUE SE DEBE
SE LOS AGRADEZCO MUCHO
PILAR
ESTE ES EL CODIGOQ UE TENGO
tablita=thisform.Combo1.value
do case
case tablita="tubogalvanizado"
private tubogalvanizado &&OJO
tubogalvanizado =Thisform.Grid1.recordsource &&OJO
if thisform.command1.caption="NUEVO"
thisform.text1.enabled=.t.
thisform.text2.enabled=.t.
thisform.text3.enabled=.t.
thisform.text4.enabled=.t.
go bottom
thisform.refresh
append blank
thisform.command1.caption="guardar"
SELECT tubogalvanizado&&OJO
replace tubogalvanizado.nombre with thisform.text1.value, tubogalvanizado.medida with thisform.text2.value, tubocobretm.preciotubo with thisform.text3.value, tubogalvanizado.preciometro with thisform.text4.value
thisform.Grid1.refresh
endif
endcase
Valora esta pregunta


0