vfp中怎样检查两个表中有哪些字段名是相同的？

来源：百度知道 编辑：UC知道 时间：2024/05/12 17:27:24
我想看看两个表的结构有什么不一样，但是字段太多了，不能一个一个的观察。
所以请问一下：
vfp中怎样检查两个表中有哪些字段名是相同的？
有哪些字段名是不同的？
谢谢～

如两表分别是 D:\a1.dbf, D:\a2.dbf

Use D:\a1 in 1
Use D:\a2 in 2
Save_Fields=" "
clea
?"两表中相同的字段有:"
for i=1 to fcount(1) && Fcount([工作区])，此函数可返回此工作区中表的字段个数
for j=1 to fcount(2)
if field(i,1)==field(j,2) then &&注意是==，不是=
&&Field([表字段的序号]|,[工作区])，此函数可返回此工作区中表第几个字段名
?field(i) &&在VFP屏中显是两表相同的字段名
Save_Fields=Save_Fields+field(i)+" "
endif
endfor
endfor

&&增加以下的程序可以测两表中不同的字段
?
?
?DBF(1),"与",DBF(2),"不相同字段有:"
?
?DBF(1),":"
for i=1 to fcount(1)
if " "+field(i,1)+" "$Save_Fields then
else
?field(i,1)
endif
endfor
?
?DBF(2),":"
for j=1 to fcount(2)
if " "+field(j,2)+" "$Save_Fields then
else
?field(j,2)
endif
endfor

谢谢,不知道