>LOCAL llOk, oUpd, laErr[1] >*** Select the main table >SELECT inward1 && child table >*** Try and update >*** If update fails, create the conflict resolution object >lnNextRec = 0 >DO WHILE .T. > lnNextRec = GETNEXTMODIFIED(lnNextRec) > IF lnNextRec = 0 > EXIT > ENDIF > llOk = TABLEUPDATE() > IF ! llOk > AERROR( laErr ) > IF laErr[1] = 1585 > oUpd = CREATEOBJECT( 'updres', THISFORM.DATASESSIONID, ALIAS() ) > IF TYPE( 'oUpd' ) = "O" AND ! ISNULL( oUpd ) > oUpd.SHOW() > ENDIF > ELSE >*** What other error could we get here? > MESSAGEBOX( MESSAGE(), 16, "Whoops!" ) > ENDIF > ENDIF >ENDDO >*** Refresh the form >THISFORM.REFRESH() > >>