Ayuda con mi código en el botón aceptar de un formulario en Visual FoxPro
Hola !, tengo el siguiente código en el botón aceptar de un formulario, el problema es que no muestra el contenido de agenda. Nota en el edit1 del formulario.
Les agradecería muchísimo si pudieran ayudarme con este problema.
SELECT FECHA
SELECT agenda
SET ORDER to afecha
SEEK DTOC(_DIARYDATE)
IF FOUND()
REPLACE THISFORMSET.FORM2.EDIT1.VALUE WITH AGENDA.NOTA
ELSE
replace agenda.nota WITH thisformset.form2.edit1.value
replace agenda.fecha WITH _DIARYDATE
endif
Les agradecería muchísimo si pudieran ayudarme con este problema.
SELECT FECHA
SELECT agenda
SET ORDER to afecha
SEEK DTOC(_DIARYDATE)
IF FOUND()
REPLACE THISFORMSET.FORM2.EDIT1.VALUE WITH AGENDA.NOTA
ELSE
replace agenda.nota WITH thisformset.form2.edit1.value
replace agenda.fecha WITH _DIARYDATE
endif
1 respuesta
Respuesta de junio0or
1
select nota,fecha,agenda from tabla where dtoc(_diarydate) = fecha into cursor prueba
thisformset.form2.edit1.value = prueba.nota
si no prueba, haber si lo que tienes en tu cursor es lo que quieres ...
thisformset.form2.edit1.value = prueba.nota
si no prueba, haber si lo que tienes en tu cursor es lo que quieres ...
Hola !, no estoy trabajando con cursores.
Entonces tienes un problema, ya que es mala programación trabajar con la tabla ... Este es ya que la tabla es el elemento principal de un programa y al trabajar con ella no queras que los usuarios, estén modificando la información sin que tu lo desees, o sin filtrar la misma.
Pero bueno lo que deberías de poner en lugar del replace, es
thisformset.form2.edit1.value = algo
thisformset.form2.edit1.value = algo
thisformset.form2.edit1.value = algo
Y así sucesivamente,
Pero bueno lo que deberías de poner en lugar del replace, es
thisformset.form2.edit1.value = algo
thisformset.form2.edit1.value = algo
thisformset.form2.edit1.value = algo
Y así sucesivamente,
