i am trying to update a child table with below code :

i have added 3 new records but only one record is inserted in "inward1.dbf"

"updres" class is created by "Andy Kramek"


how to update a child table with many records and with conflict resolution .

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

warm regards,
mk.