如何判断两个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