VFP 愛用者社區

Watermelon · 註冊時間: 2005-01-22 文章: 197 第 1 樓

a.dbf 及 b.dbf 的 structure 完全一樣，請問要如何比對 2 個資料表的筆數及內容是否一致?

foxy · 發表於: 星期五二月 23, 2024 11:50 am 文章主題:

USE a alias a in 0
USE b alias b in 0

if !reccount('a')=reccount('b') &&筆數不同
messagebox('different number of rows')
endif

lnRow=0
sele a
scan && 依次通過 a 的所有紀錄
m.lnRow=m.lnRow+1
go m.lnRow in b && 找到 b 的同一筆紀錄
m.lnTOTAL=FCOUNT('a')
For m.lnNow=1 to m.lnTotal && 比較所有欄位
m.lcfldName=field(m.lnNow,'a') && 找出欄位名稱
m.lvvalue1=a.&lcfldname && a 的欄位資料
m.lvvalue2=b.&lcfldname && b 的欄位資料
if !m.lvvalue1=m.lvvalue2 &&同一欄位的資料不同
messagebox('different values found')
endif
endfor
endscan

lygcw9603 · 註冊時間: 2011-12-25 文章: 127 第 3 樓

提供的信息太少，两个表长什么样子

Watermelon · 註冊時間: 2005-01-22 文章: 197 第 4 樓

非常感謝前輩幫忙! 實在太厲害了太好用了!