FoxPro/Visual FoxPro - mostrar resultado

   
Vista:
Imágen de perfil de Analia

mostrar resultado

Publicado por Analia (186 intervenciones) el 31/08/2010 01:14:03
Hola !!, tengo el siguiente codigo en el boton aceptar de un formulario, el problema es que no muestra el contenido de agenda.nota en el edit1 del formulario.
Les agradeceria muchisimo si pudieran ayudarme con este pronblema.

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:mostrar resultado

Publicado por Juanma Cruz (508 intervenciones) el 31/08/2010 19:50:31
THISFORMSET.FORM2.EDIT1.VALUE supongo que es un control Edit, así que no puedes tratarlo como si fuera un campo y querer cambiar su valor con un Replace.

Es suficiente con:

THISFORMSET.FORM2.EDIT1.VALUE= agenda.nota

En el caso contrario, querer grabar el valor del mencionado EDIT en el campo NOTA de la tabla AGENDA sí debes usar REPLACE.

Por cierto, si esa búsqueda la estás haciendo por un campo DATE o DATETIME la clave de índice debería ser:

DTOS()
que convierte a un formato añomesdia, que es lo correcto para ordenamiento.

o DTOC( fecha, 1)
ya que el parametro 1 hace lo mismo que el DTOS.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Analia

RE:mostrar resultado

Publicado por Analia (186 intervenciones) el 31/08/2010 22:11:47
Hola !!, la busquesda la estoy haciedo con _diarydate de un Control Calendar 10
Estoy en lo correcto ?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar