sql left join 升成数据后未匹配的空白计算的问题

xgy0214dxy

如题，

工号	姓名	任务	业绩	差
1001	丁敏	22	167	-145
1009	鲁艳敏	18	107	-89
1003	左喜一	21
1017	庄丽	21	107	-86
1050	胡欢	98

如何实现如下结果

工号	姓名	任务	业绩	差
1001	丁敏	22	167	-145
1009	鲁艳敏	18	107	-89
1003	左喜一	21	0	21
1017	庄丽	21	107	-86
1050	胡欢	98	0	98

不多说了，见附件， 例.rar (20.06 KB, 下载次数: 17)

2015-6-8 21:03 上传

点击文件名下载附件
例

，

浮华、缠绕指尖

Try this one if help you主要是因为右边table条目较少，left连接到左右条目较多时出默认为null值，所以你将它的默认值认值改了0即可

sql = "select 工号,姓名,任务,iif(业绩 is null,0,业绩),iif(差 is null, 任务,差) from(select A.工号,A.姓名,A.任务,B.业绩,A.任务-B.业绩 as 差 FROM [DATA2$]A LEFT JOIN [DATA1$]B ON A.工号=B.工号)"

或者这样

1. sql = "select A.工号,A.姓名,A.任务,iif(isnull(B.业绩),0,B.业绩),A.任务-iif(isnull(B.业绩),0,B.业绩) FROM [DATA2$]A LEFT JOIN [DATA1$]B ON A.工号=B.工号"

复制代码

xgy0214dxy

顶一下，别沉

xgy0214dxy

十分感谢楼，有谁能科普一下

tyxvba7529

1. Option Explicit
   
2. 
   
3. Private Sub CommandButton1_Click()
   
4. Dim con As Object
   
5. Dim sql$, sql1$, sql2$
   
6.      Set con = CreateObject("adodb.connection")
   
7.      con.Open "DSN=EXCEL FILES;DBQ=" & ThisWorkbook.FullName
   
8.      sql1 = "select A.工号,A.姓名,A.任务,B.业绩,A.任务-B.业绩 FROM [DATA2$]A LEFT JOIN [DATA1$]B ON A.工号=B.工号"
   
9.      sql = "select 查1.工号, 查1.姓名, 查1.任务,iif(isnull(查1.业绩),0, 查1.业绩),查1.任务-iif(isnull(查1.业绩),0, 查1.业绩) as 差 from (" & sql1 & ") as 查1 "
   
10. 
    
11.      Range("A1:F100").ClearContents
    
12.      Range("A1:E1") = Array("工号", "姓名", "任务", "业绩", "差")
    
13.      Range("a2").CopyFromRecordset con.Execute(sql)
    
14.      con.Close
    
15.      Set con = Nothing
    
16. End Sub
    

复制代码

handsomcao

空格经过透视后，会以文本的形式表达，所以要转换成数值，iif(业绩 is null,0,业绩)，这句就是，如果业绩为空，则为0，

xgy0214dxy

谢谢，清楚了