如何判断两个dbf文件的结构是否完全相同？

jackeyabc

于 2007-03-17 09:41:00 发布

阅读量1.4k

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/jackeyabc/article/details/1531884

本文介绍了一种通过比较字段数量及字段属性来判断两个DBF文件结构是否完全相同的方法，并提供了一个具体的函数实现。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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