>Naomi,
>
>Can you show your code when you click Cancel?
>
>Dennis

In the Cancel button I have this code

select rsShows
thisform.cancel()
thisform.ActivateParentPage(3)

Cancel method of the form has

DODEFAULT()
thisform.lMadeChanges = .f.

and default code is

thisform.lAdded = .f.
thisform.lAdding = .f.
IF NOT EMPTY(ALIAS()) AND CURSORGETPROP("Buffering") > 2
	tablerevert(.t.)
ENDIF

And ActivateParentPage is

lparameters tnPage
local lnIndex, lnParentIndex
thisform.pageframe1.ActivePage = m.tnPage
try   
   with thisform.ProductionSeriesTree as TListProLibCtl
      lnIndex = .listindex
      IF m.lnIndex < 0 && The item was deleted
         lnIndex = thisform.LastSelectedIndex 
      endif   
      lnParentIndex = .ItemParent(m.lnIndex)

      .selected(m.lnParentIndex) = .t. && Activate the parent
   endwith
catch to loError
   **
endtry