如何判断两个dbf文件的结构是否完全相同?
2007-03-17 09:41
453 查看
如何判断两个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
评价:
给朵鲜花(0)
扔个鸡蛋(0)
--------------------------------------------------------------
*判断 表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
评价:
给朵鲜花(0)
扔个鸡蛋(0)
相关文章推荐
- 判断两个文件是否完全相同
- C#基础之如何判断两个文件内容是否相同
- java怎么判断两个Set 里的对象的值是否相同【两个set中的值是否相等】、java treeset和hashset如何判断元素是否相同【即对象是否完全相同;利用一个set去除重复元素】
- C#如何实现比较两个文件的内容是否完全相同?
- C#如何实现比较两个文件的内容是否完全相同?
- C# 如何判断两个文件内容是否相同的方法
- [java]用md5来判断两个文件是否完全相同 1. 前言
- 如何判断两个整数相加减是否溢出
- bash如何判断一个文件是否存在
- windows10UWP:如何判断一个文件或者文件夹是否存在?
- 【转】【C#】判断两个文件是否相同
- C#如何判断两个日期是否相等
- 如何判断两个可移动磁盘卷是否在同一个USB HUB上?
- 编程判断两个链表是否相交 结构之法 6
- Spring框架是如何判断是否是上传文件请求呢
- 如何判断两个矩形是否有重叠部分?(某公司校园招聘笔试试题)
- 如何判断一个文件是否正在被使用
- 如何判断文件是否读到文件结尾
- 同表两个字段二选一查询mysql中如何判断某一个字段是否存在某一个值
- 如何简要判断自己对.cpp文件的修改是否生效? 如何简要判断程序所进入的预编译分支?