调用数据库命令- 在线等

无穷大

请高手帮忙看看为什么执行完毕后多了一行？不知道哪里有问题！

1. Sub 转口临时表()
   
2.     Application.ScreenUpdating = False
   
3.     Sheets("转口临时表").UsedRange.Clear '清空临时表
   
4.    
   
5.     Dim Conn As Object, Rst As Object
   
6.     Dim strConn As String, strSQL As String
   
7.     Dim i As Integer, PathStr As String
   
8.     Dim StarTime As Date, EndTime As Date, BiZhong As String
   
9. 
   
10.     Set Conn = CreateObject("ADODB.Connection")
    
11.     Set Rst = CreateObject("ADODB.Recordset")
    
12.     PathStr = ThisWorkbook.FullName
    
13.     Select Case Application.Version * 1
    
14.     Case Is <= 11
    
15.         strConn = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & PathStr
    
16.     Case Is >= 12
    
17.         strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
    
18.     End Select
    
19. 
    
20.     strSQL = "Select distinct PartNo,sum(Qty) as Qty,price*1.05 as NewPrice,0 as Total,Price,0 as Customer,DateCode,SP_No,CPN From [临时表$] group by  PartNo,DateCode,SP_No,CPN,Price order by  PartNo,DateCode "
    
21.     Conn.Open strConn
    
22.     Set Rst = Conn.Execute(strSQL)
    
23.     With Sheets("转口临时表")
    
24.         For i = 0 To Rst.Fields.Count - 1
    
25.             .Cells(1, i + 1) = Rst.Fields(i).Name
    
26.         Next i
    
27.         .Range("A2").CopyFromRecordset Rst
    
28.     End With
    
29.     Rst.Close
    
30.     Conn.Close
    
31.     Set Conn = Nothing
    
32.     Set Rst = Nothing
    
33.    
    
34.     'Sheets("常规入库单").Select
    
35.     Application.ScreenUpdating = True
    
36. 
    
37. End Sub

复制代码

无穷大

我找到问题了，少了Where，把空白也添加进去了，Where PartNo is not null