表格数据对比，跪求大神帮忙，感谢

hxangel1314 · 发表于 2018-4-7 12:12

大神们好，有一系列数据，经常会有更新，想要比较后提取变更的数据，谢谢！如果表二的列三数据大于表一的数据，显示“价格上调”，如果小于则显示“价格下降”。复制到表三的时候，能否把表一的数据在旁边显示，谢谢！

lsc900707 · 发表于 2018-4-7 12:35

没看懂什么意思。能否模拟结果？

abc123281 · 发表于 2018-4-7 12:53

要求不明白你这种表既没表头又没有说明列3怎样比较只可能比较列2

opiona · 发表于 2018-4-7 12:57

依旧表为准，新表数据可能不能完全显示

Rem 组合SQL语句
StrSQL = ""
StrSQL = StrSQL & "SELECT A.F1 as 编号,A.F3 as 名称"
StrSQL = StrSQL & ",A.F2 as [旧表价格],B.F2 as [新表价格]"
StrSQL = StrSQL & ",IIF(ISNULL(B.F2)=FALSE,IIF(B.F2>IIF(ISNULL(A.F2)=TRUE,0,A.F2),'价格上调',IIF(B.F2<IIF(ISNULL(A.F2)=TRUE,0,A.F2),'价格下降','未调整')),'新表没有') AS 价格变化"
StrSQL = StrSQL & " FROM ("
StrSQL = StrSQL & "SELECT F1,F2,F3 FROM [" & SH1.Name & "$] WHERE NOT F1 IS NULL"
StrSQL = StrSQL & ") AS A LEFT JOIN ("
StrSQL = StrSQL & "SELECT F1,F2,F3 FROM [" & SH2.Name & "$] WHERE NOT F1 IS NULL"
StrSQL = StrSQL & ") AS B ON A.F1=B.F1 AND A.F3=B.F3"