Problema con rutina

08/04/2005 - 16:19 por Carlos Sanchez | Informe spam

buenos dias, tengo que hacer una rutinapara modificar unos campos de una
tabla y al final mostrar un mensaje con los campos que se modificaron

mas o menos es asi
do case
case thisform.text_name!=tabla.name
replace tabla.name with thisform.text_name
cCheck= ' Nombre'
case thisform.text_apellido!=tabla.apellido
replace tabla.name with thisform.text_apellido
cCheck= ' apellido'+cCheck
endcase
if cCheck!='' then
messagebox(cCheck)
else
mesagebox('no hay cambios')
endif
Cuando modifico uno y otro funciona el problema es cuando modifico los dos
solo se modifica el primero. Hay alguna otra forma (tomando en cuenta que
son 12 datos a introducir).

SALUDOS

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Heberto Villavicencio

08/04/2005 - 16:48 | Informe spam

El case solamente va a ejecutar una condicion, es decir cuando una condicion
se cumple las demas no se evaluan. Si tienes el caso que se puede ejecutar
mas de una condicion simultaneamente deberas utilizar otra instruccion.
(IF...ELSE..ENDIF)

"Carlos Sanchez" escribió en el mensaje
news:

buenos dias, tengo que hacer una rutinapara modificar unos campos de una
tabla y al final mostrar un mensaje con los campos que se modificaron

mas o menos es asi
do case
case thisform.text_name!=tabla.name
replace tabla.name with thisform.text_name
cCheck= ' Nombre'
case thisform.text_apellido!=tabla.apellido
replace tabla.name with thisform.text_apellido
cCheck= ' apellido'+cCheck
endcase
if cCheck!='' then
messagebox(cCheck)
else
mesagebox('no hay cambios')
endif
Cuando modifico uno y otro funciona el problema es cuando modifico los dos
solo se modifica el primero. Hay alguna otra forma (tomando en cuenta que
son 12 datos a introducir).

SALUDOS

Responder a este mensaje

#2 Francisco Lorente

11/04/2005 - 10:26 | Informe spam

Hola Carlos, puedes usar la función GetFldState() (consulta la ayuda para
ver como se usa) o si quieres rectificar tu código no puedes usar do case,
debes usar if..else..endif, algo así como:

if thisform.text_name!=tabla.name
replace tabla.name with thisform.text_name
cCheck= ' Nombre'
endif
if thisform.text_apellido!=tabla.apellido
replace tabla.name with thisform.text_apellido
cCheck= ' apellido'+cCheck
endif
if cCheck!='' then
messagebox(cCheck)
else
mesagebox('no hay cambios')
endif

Saludos

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida