请教怎么增加数据效率高点 怎么都不明白 为何 效率那么低的

pmet12345

1. 
   
2.   
   
3.      rst.Open "信息", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
4.      
   
5.      For i = 0 To cid '~=25000
   
6.          
   
7.          With Datas(i)
   
8.           If Not IsEmpty(Datas(i).p_info) Then
   
9.           m = UBound(Datas(i).p_info)
   
10.             For j = 1 To m
    
11.             n = UBound(Datas(i).p_info(j, 5))
    
12. 
    
13.                 If n = 0 Then
    
14.                     rst.AddNew Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 12, 13, 14, 16), _
    
15.                     Array(.p_info(j, 0), .p_info(j, 1), .p_info(j, 2), .p_info(j, 3), .p_info(j, 4), Empty, Empty, Empty, Empty, _
    
16.                     .p_info(j, 9), Empty, .p_info(j, 11), .p_info(j, 12), Empty _
    
17.                     )
    
18. 
    
19.                 Else
    
20.                 For k = 1 To n
    
21.                     rst.AddNew Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 12, 13, 14, 16), _
    
22.                     Array(.p_info(j, 0), .p_info(j, 1), .p_info(j, 2), .p_info(j, 3), .p_info(j, 4), IIf(Datas(i).p_info(j, 5)(k, 0) = "", Empty, idlx(Val(Datas(i).p_info(j, 5)(k, 0)))), IIf(Datas(i).p_info(j, 5)(k, 1) = "", Empty, iddj(Val(Datas(i).p_info(j, 5)(k, 1)))), .p_info(j, 5)(k, 2), .p_info(j, 5)(k, 3), _
    
23.                     .p_info(j, 9), .p_info(j, 5)(k, 4), .p_info(j, 11), .p_info(j, 12), .p_info(j, 5)(k, 5) _
    
24.                     )
    
25. 
    
26.                 Next k
    
27.                End If
    
28.             Next j
    
29.          End If
    
30.          
    
31.        End With
    
32. 
    
33.     Next
    
34.      rst.Close
    
35.      Set rst = Nothing
    
36.          Datas(0-25000+) 结构如下
    
37.              |属性1
    
38.                  |属性2
    
39.                  ...
    
40.                  |属性13
    
41.         其中 |属性info 为动态数组 维数不定
    
42.                     |属性info的子属性1
    
43.                         |属性info的子属性2
    
44.                         |属性info的子属性3
    
45.                         |属性info的子属性4
    
46.                         |属性info的子属性5 为动态数组 维数不定
    
47.                                                 |属性info的子属性5孙属性1
    
48.                                                 |属性info的子属性5孙属性2
    
49.                                                 |属性info的子属性5孙属性3
    
50.                                                 |属性info的子属性5孙属性4
    
51.                                                 |属性info的子属性5孙属性5
    
52.                         
    
53.                         ...
    
54.                         |属性info的子属性8
    
55.                         。。。
    
56.         idlx 和iddj 是2个已有固定数组
    

复制代码

需要接近10分钟 太慢了.. 是取datas数组太慢了?!
为什么不在生成数组的时候直接存入表,我只能说我有 暗疾.....说不出的痛
一般情况下 写完后 表[信息] 将有12万条记录为什么这么慢的呢  试过 将 21行的屏蔽后能大概提高1班时间,如果芝士将 21行的iif语句该为直接数组的值(即不取对应固定数组中的值), 有10-20%的提升
第21行 其实增加的数据量很少的

pmet12345

wei什么也要审核