In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

DBNAVIGATOR

Xailer English public forum
Responder
Frank
Mensajes: 6
Registrado: Lun Abr 12, 2010 12:08 pm

DBNAVIGATOR

Mensaje por Frank »

Ciao a tutti
quando premo il tasto - delete sulla barra dbnavigator il record corrente
viene immediatamente DELETED mentre voglio che compaia un message box di
conferma
ho provato così :
METHOD DBNavigator1ClickDelete( oSender ) CLASS Terzisti
::oMessageBox2:BEEP()
::oMessageBox2:RUN()
IF ::oMessageBox2:nResult = 2
::oDBFDataSet1:RECALL()
ENDIF
RETURN Nil
ma non funziona !! il record rimane deleted
qualcuno mi sa dire come si fa?
Grazie Frank
Ashvin Adodra
Mensajes: 4
Registrado: Dom May 09, 2010 12:14 pm

DBNAVIGATOR

Mensaje por Ashvin Adodra »

Frank,
I do not understand your language, but from the code which you have
given, it seems that you want to recall the deleted record. If it is so, try
this
before delete save the record no to a variable
nRec:= ::oDBFDataSet1:recno()
for recall
IF ::oMessageBox2:nResult = 2
::oDBFDataSet1:goto(nRec)
::oDBFDataSet1:RECALL()
ENDIF
Ashvin
"Frank" <info@novatron.it> wrote in message
news:4bed510e$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Ciao a tutti
>
> quando premo il tasto - delete sulla barra dbnavigator il record corrente
> viene immediatamente DELETED mentre voglio che compaia un message box di
> conferma
>
> ho provato così :
>
> METHOD DBNavigator1ClickDelete( oSender ) CLASS Terzisti
> ::oMessageBox2:BEEP()
> ::oMessageBox2:RUN()
>
> IF ::oMessageBox2:nResult = 2
> ::oDBFDataSet1:RECALL()
> ENDIF
> RETURN Nil
>
> ma non funziona !! il record rimane deleted
>
> qualcuno mi sa dire come si fa?
>
> Grazie Frank
>
Responder