Thanks a lot..
I'll give this a try..
Merry Xmas...

>Another option is to use SQLEXEC() to create a cursor, then you can modify the following code to make that cursor updatable. For ALL my tables, I use a surrogate numeric PK that is always named KeyID and I do not make that field updatable because it is automatically generated by the server. Then you can use APPEND, DELETE, REPLACE, TABLEUPDATE(), TABLEREVERT(), etc.

>LPARAMETERS tcCursor, tcTable, tlUpdateKey
>IF VARTYPE(tcCursor) <> 'C'
>   RETURN .f.
>ENDIF
>IF VARTYPE(tcTable) <> 'C'
>   RETURN .f.
>ENDIF
>IF NOT USED(tcCursor)
>   RETURN .f.
>ENDIF
>CURSORSETPROP('Tables', tcTable)
>** The next property must include every remote
>** field matched with the cursor field.
>LOCAL lcFields, lcUpdate, llRetVal
>lcFields = ''
>lcUpdate = ''
>FOR lnI = 1 TO FCOUNT(tcCursor)
>   IF NOT EMPTY(lcFields)
>      lcFields = lcFields + ', '
>   ENDIF
>   lcFields = lcFields + FIELD(lnI, tcCursor) + ' ' ;
>            + tcTable + '.' + FIELD(lnI, tcCursor)
>   IF UPPER(FIELD(lnI, tcCursor)) == 'KEYID'
>      IF NOT tlUpdateKey
>         LOOP
>      ENDIF
>   ENDIF
>   IF NOT EMPTY(lcUpdate)
>      lcUpdate = lcUpdate + ', '
>   ENDIF
>   lcUpdate = lcUpdate + FIELD(lnI, tcCursor)
>ENDFOR
>llRetVal = CURSORSETPROP('UpdateNameList', lcFields, tcCursor)
>llRetVal = CURSORSETPROP('KeyFieldList', 'KeyID', tcCursor)
>** The next property specifies which fields can be updated.
>llRetVal = CURSORSETPROP('UpdatableFieldList', lcUpdate, tcCursor)
>** The next property enables you to send updates.
>llRetVal = CURSORSETPROP('SendUpdates', .T., tcCursor)
>llRetVal = CURSORSETPROP('UpdateType', 1, tcCursor)
>llRetVal = CURSORSETPROP('WhereType', 1, tcCursor)
>RETURN llRetVal
>