PRIVATE oMeta oMeta = NewObject( 'DBCXMgr', 'DBCXMGR.VCX', "", IIF( Debugging, .T., .F. ) ) IF TYPE( 'oMeta' ) <> 'O' or IsNull( oMeta ) * display an error message and exit, because DBCX cannot be used WAIT WINDOW "Cannot open DBCXMgr..." ELSE oMeta.SetDatabase(dbc()) lnTables = adbObjects( laTables, 'Table' ) && get number of tables FOR lnI = 1 TO lnTables IF oMeta.oSDTMgr.NeedUpdate( laTables[ lnI ] ) lSuccess = oMeta.oSDTMgr.Update( laTables[ lnI ] ) IF lSuccess WAIT WINDOW "Updated " + ALLTRIM( laTables[ lnI ] ) ENDIF ENDIF NEXT ENDIFHTH J