同样方法操作，速度相差很多

t小宝

这个代码似乎快一点点

1. Sub macro2()
   
2. 
   
3. Dim arr2()
   
4. Dim i As Integer
   
5. Dim a As Integer
   
6. Dim s As String
   
7. Dim e As Double
   
8. 
   
9. Dim rs As ADODB.Recordset
   
10. 
    
11. CurrentDb.Execute "delete * from 表_调拨明细"
    
12. 
    
13. e = Timer
    
14. arr2 = CurrentProject.Connection.Execute("SELECT * FROM 表_指令调拨表 order by 流水号").getrows
    
15. a = UBound(arr2, 2)
    
16. 
    
17. Set rs = New ADODB.Recordset
    
18. sql = "select * from 表_调拨明细"
    
19. 
    
20. With rs
    
21.     .Open sql, CurrentProject.Connection, 3, 3
    
22.     For i = 0 To a
    
23.         If i = 0 Then
    
24.             s = arr2(1, i) & arr2(2, i) & arr2(3, i)
    
25.         ElseIf arr2(0, i) = arr2(0, i - 1) Then
    
26.             s = s & "," & arr2(1, i) & arr2(2, i) & arr2(3, i)
    
27.         ElseIf arr2(0, i) <> arr2(0, i - 1) Then
    
28.             .AddNew
    
29.                 rs("流水号") = arr2(0, i - 1)
    
30.                 rs("调拨明细") = s
    
31.            .Update
    
32.            s = arr2(1, i) & arr2(2, i) & arr2(3, i)
    
33.         End If
    
34.     Next
    
35.      .AddNew
    
36.          rs("流水号") = arr2(0, a)
    
37.          rs("调拨明细") = s
    
38.     .Update
    
39. 
    
40.     MsgBox a + 1 & " " & Timer - e
    
41. End With
    
42. 
    
43. End Sub

复制代码

zhufree

t小宝 发表于 2011-11-2 23:39
这个代码似乎快一点点

数组操作看起来更易懂

xyhecho2002

roych 发表于 2011-11-2 22:58
直接执行查询也不见得很慢。就本例而言，在我的系统里测试，似乎是直接执行追加查询比字典功能或者ADO都要快 ...

学习下