PARAMETERS tcViewName, tcNewList lcOriginalList = CURSORGETPROP('UpdatableFieldList',tcViewName) lcUpdateList = tcNewList + lcOriginalList IF .NOT. CURSORSETPROP('UpdatableFieldList',lcUpdateList,tcViewName) =AERROR(laError) *DISPLAY MEMO LIKE laError =MessageBox('ERROR in Set List') RETURN ENDIF SELE (tcViewName) IF .NOT. TABLEUPDATE(.T.) =AERROR(laError) *DISPLAY MEMO LIKE laError =MessageBox('ERROR in Update') RETURN ENDIF IF .NOT. CURSORSETPROP('UpdatableFieldList',lcOriginalList, tcViewName) =AERROR(laError) *DISPLAY MEMO LIKE laError =MessageBox('ERROR in restore list') RETURN ENDIF thisform.lDirty = .F.