LOCAL lcSQL lcSql = '' SELECT tablea COPY STRUCTURE EXTENDED TO tempstru SELECT 0 USE tempstru SET TEXTMERGE ON TO memvar lcSQL noshow \SELECT tablea.* FOR i = 1 TO AFIELDS(lafields,'tableb') LOCATE FOR lafield(i,1)+' ' = field_name+' ' IF NOT FOUND() \\,tableb.<<lafield(i,1)>> ENDIF ENDFOR \\ from tablea, tableb where your matching expression into cursorc SET TEXTMERGE to SET TEXTMERGE off &lcSqlGlenn
>SELECT TableA.*, TableB.* WHERE A.Fieldx = B.Fieldx >>
>Field1, Field2, Field3... >>
>Field1_a, Field1_b, Field2, Field3... >