scatter tableb lfound = .t. select tablea scan for nfieldcnt = 1 to fcount() cfielda = "tablea." + field(nfieldcnt) cfieldb = "m." + field(nfieldcnt) if eval(cfielda) # eval(cfieldb) then lfound = .f. endif next if lfound then * got a match exit else lfound = .t. endif endscan if lfound then * found match processing else * no match processing endif