如何优化TREE代码，这是我加载（约5000笔数据，只有7个字段值）时需要10多秒的代码

luhao

On Error Resume Next
        Dim NodeIndex As Node
        Dim Stra As String
        Dim I As Integer
        Dim rs As ADODB.Recordset
        Dim Rs1 As ADODB.Recordset
        
        Dim opSQL As String
        
        opSQL = "SELECT 塑胶件存货档案.存货大类编码, 塑胶件存货档案.存货大类名称, 塑胶件存货档案.规格型号 " & _
                "FROM 塑胶件存货档案 " & _
                "ORDER BY val(塑胶件存货档案.存货大类名称); "
        
    Set rs = New ADODB.Recordset
    Set Rs1 = New ADODB.Recordset
   
    Dim intI As Integer
   
    Set NodeIndex = TreeView.Nodes.Add(, , "塑胶件存货档案", "塑胶件存货档案", "K1", "K2")
   
    Rs1.Open opSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
      
       For I = 1 To Rs1.RecordCount
          Set NodeIndex = TreeView.Nodes.Add(, tvwChild, "A" & Rs1("存货大类编码"), Rs1("存货大类名称"), "K1", "K2")
          NodeIndex.Sorted = True
          Rs1.MoveNext
       Next I

djt

需要时才载入，才能节省几秒钟

luhao

2# djt
但用了以下的代码，加载时就超快。。。。。但提示：type mismatch 出错，只加载一部分，不能完全加载完数据。。。。。
    '***********************************************************************************************
    ' 用数据库表中数据填充树控件
        Dim Conn As New ADODB.Connection
        Dim Rec As New ADODB.Recordset
        Dim nodIndex As Node
        Dim strSQL As String
        Dim objList As ListItem
        Dim i As Integer
        
On Error GoTo Err_cw
    Set Conn = CurrentProject.Connection
    '***********************************************************************************************
    '设置业务员
    strSQL = "SELECT DISTINCT 存货大类名称 FROM 塑胶件存货档案;"
        
        Rec.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
        
        Rec.MoveFirst
   
    With Rec
         Do While Not .EOF
         
            Set nodIndex = TreeView.Nodes.Add(, , "a" & Rec.Fields("存货大类名称"), Rec.Fields("存货大类名称"), 1, 2)
            nodIndex.Sorted = True
            
            .MoveNext
        Loop
    End With
   
            Rec.Close
    '***********************************************************************************************
    '设置地区
     strSQL = "SELECT DISTINCT 存货大类名称,规格型号 FROM 塑胶件存货档案;"
        
        Rec.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
        
        Rec.MoveFirst
   
    With Rec
         Do While Not .EOF
         
            Set nodIndex = TreeView.Nodes.Add("a" & Rec.Fields("存货大类名称"), tvwChild, "b" & Rec.Fields("存货大类名称") & Rec.Fields("规格型号"), Rec.Fields("规格型号"), 1, 2)
            nodIndex.Sorted = True
            
            .MoveNext
        Loop
    End With
   
            Rec.Close
'***********************************************************
        Set Conn = Nothing
        Set Rec = Nothing
        
Exit_cw:
    Set Conn = Nothing
    Set Rec = Nothing
    Exit Sub
Err_cw:
    MsgBox Err.Description
    Resume Exit_cw
End Sub

luhao

1# luhao
不要让它沉沦

fan0217

需要的时候才加载，不要一股脑全部加载。速度会是你以前的N倍。

asklove

转一个例子啊，总比猜容易些吧

luhao

5# fan0217
打开窗体就加载，要不，版主有何高见。。。。。。。。

fan0217

打开窗体的时候加载一级节点，单击节点的时候加载当前节点的下级节点，同时展开即可。论坛上我发表的有例子，自己找找。

luhao

8# fan0217

那怕我用第一级的也很慢，可能函数有关。请帮看下，函数有没问题.......