CLOSE DATABASES SET COLLATE TO "MACHINE" USE ff IN 0 INDEX on bh TAG bh USE hh IN 0 SELECT hh SET RELATION TO bh INTO ff SCAN REPLACE addr WITH hh.addr IN ff IF LEFT(hh.cw, 2) == "父" REPLACE F_xm WITH hh.xm2, F_csrq WITH hh.csrq IN ff ELSE REPLACE M_xm WITH hh.xm2, M_csrq WITH hh.csrq IN ff ENDIF ENDSCAN SET RELATION TO SELECT ff DELETE TAG bh BROWSE