Naomi,

Were you testing on an empty table?

Dennis

>>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