>>In VFP 7, comparing structures of 2 tables is now easier. The first step is to copy the EXTENDED structure of each table to tables. I did a search here for other solutions. They generally used afields and other stuff, but this solution seems so much easier. The procedure I created is for comparing Oracle tables so you would have to change COLUMN_NAME to FIELD_NAME:

>>   PROTECTED PROCEDURE CompareStructureData
>>      LPARAMETERS tcAlias1, tcAlias2
>>      IF RECCOUNT(tcAlias1)  RECCOUNT(tcAlias2)
>>         RETURN .f.
>>      ENDIF
>>      LOCAL lnSelect, llTheSame, lcFedCols, lcGISCols
>>      lnSelect = SELECT()
>>
>>      SELECT * from (tcAlias1) ORDER BY column_name INTO CURSOR crsTempOne nofilter
>>      SELECT * from (tcAlias2) ORDER BY column_name INTO CURSOR crsTempTwo nofilter
>>
>>      CURSORTOXML('crsTempOne', 'lcTempOne')
>>      CURSORTOXML('crsTempTwo', 'lcTempTwo')
>>
>>      lcTempOne = lower(lcTempOne)
>>      lcTempTwo = lower(lcTempTwo)
>>
>>      *!* Change the cursor name in the second XML string to be the same as in the
>>      *!* first string because this name is irrelevent to the structure comparison
>>      lcTempTwo = STRTRAN(lcTempTwo, 'crstemptwo', 'crstempone')
>>
>>      IF SYS(2007, lcTempOne) = SYS(2007, lcTempTwo)
>>         llTheSame = .t.
>>      ENDIF
>>      USE IN crsTempOne
>>      USE IN crsTempTwo
>>      SELECT (lnSelect)
>>      RETURN llTheSame
>>   ENDPROC</font

>
>Mark,
>I think this would fail if the tables were part of a DBC. You could however fix it by not including all fields in select from extended structures. Also I wouldn't lowercase each which might incorrectly return different structures as same.
>BTW FoxyClasses DataDelta basically uses 'copy structure extended' technique and compatible with all VFP versions.
>PS: Instead of XML you could use union for all VFP versions :
>

>select	FIELD_NAME, FIELD_TYPE,	FIELD_LEN, FIELD_DEC, ;
>  FIELD_NULL, FIELD_NOCP, FIELD_DEFA, FIELD_RULE, FIELD_ERR FROM xstruc1 ;
>UNION ;
>select	FIELD_NAME, FIELD_TYPE,	FIELD_LEN, FIELD_DEC, ;
>  FIELD_NULL, FIELD_NOCP, FIELD_DEFA, FIELD_RULE, FIELD_ERR FROM xstruc2 ;
>INTO ARRAY arrDummy
>return ALEN(arrDummy,1) = reccount('xstruc1')

>Cetin

Cool! It's shorter, simplier and easier to customize.