if seek(valuea,tablea,ordera) replace feieldlista with valuelista in tablea else *!* do error stuff here endif if seek(valueb,tableb,orderb) replace feieldlistb with valuelistb in tableb else *!* do error stuff here endif