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

如何判断两个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,'信息提示')
    ENDIF
ENDFUNC