|
依旧表为准,新表数据可能不能完全显示
- 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"
复制代码 |
|