请教老师 怎样测定二个数据库的结构是否一致与否呢

如何判断两个dbf文件的结构是否完全相同？--------------------------------------------------------------  *判断 表1 和 表2 的结构是不是完全相同CompareTableStructure('表1','表2')FUNCTION CompareTableStructure    LPARAMETERS lcTable1,lcTable2    CLOSE DATABASES    USE (lcTable1) IN 1    lnFieldsSum1=AFIELDS(Stru1,1)    USE (lcTable2) IN 2    lnFieldsSum2=AFIELDS(Stru2,2)    CLOSE DATABASES    TF=0    IF lnFieldsSum1!=lnFieldsSum2        MESSAGEBOX("结构不相同！",64,'信息提示')        RETURN    ENDIF    FOR I=1 TO lnFieldsSum1        FOR J=1 TO 15            IF Stru1(I,J)==Stru2(I,J)                TF=0            ELSE                MESSAGEBOX("结构不相同！",64,'信息提示')                TF=1                EXIT            ENDIF        ENDFOR        IF TF=1            EXIT        ENDIF    ENDFOR    IF TF=0        MESSAGEBOX("结构相同！",64,'信息提示')    ENDIFENDFUNC