Cuestión : Disminuir el tiempo de carga del árbol en vb.net 2003

Estoy intentando cargar un árbol de un grupo de datos.  El código está abajo.   El problema es él está durando tan para cargar el código.  Cómo puedo acelerar la carga.  Thanks class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
class= treeloadall secundario " del id= " codeSnippet827803 del 
Private " notpretty " ()
        objDS.Clear ()
        Servicetype dévil
        servicetype = “SERVICIO”
        'Si programa = “ContactLog” entonces
        daSections = nuevo SqlDataAdapter (“TAPA DISTINTA SELECTA convertido del 100 POR CIENTO (varchar (10), dbo.tblMHCIntake.dtmIntake, 101) como intakedate, dtmintake, DATENAME (dw, dbo.tblMHCIntake.dtmIntake) COMO dayname de dbo.tblMHCIntake donde dtmintake > '01/01/2005'ORDER POR dbo.tblMHCIntake.dtmIntake DESC”, Connection1)
        SqlDataAdapter daContent = nuevo (“TAPA DISTINTA SELECTA el 100 POR CIENTO tblPatient.strLName + “,” + de tblPatient.strFName nombre TAN, CONVERTIDO (varchar (10), tblMHCIntake.dtmIntake, 101) COMO el intakedate, DATENAME (dw, dbo.tblMHCIntake.dtmIntake) COMO dayname, tblMHCIntake.dtmIntake, tblMHCIntake.strStaff, CONVERTIDO (varchar (10), tblPatient.dtmDOB, 101) COMO dtmdob, tblPatient.strPatientId, tblMHCIntakeDetail.lngIntakeId del tblMHCIntake INTERNO ENSAMBLAN el tblMHCIntakeDetail EN tblMHCIntake.lngIntakeId = tblMHCIntakeDetail.lngIntakeId INTERNO ENSAMBLAN tblLUMHCData EN tblMHCIntakeDetail.lngDataId = tblLUMHCData.lngDataID A LA DERECHA EXTERNO ENSAMBLAN tblPatient EN tblMHCIntake.lngPatientId = tblPatient.lngPatientId DONDE (tblMHCIntake.dtmIntake > “1/1/2005”) ORDEN POR tblMHCIntake.dtmIntake DESC”, Connection1)
        datype = nuevo SqlDataAdapter (el “POR CIENTO DISTINTO SELECTO tblMHCIntakeDetail.lngIntakeId, tblMHCIntakeDetail.lngDataId, tblLUMHCData.strData de la TAPA 100 del tblMHCIntake INTERNO ENSAMBLAN el tblMHCIntakeDetail EN tblMHCIntake.lngIntakeId = tblMHCIntakeDetail.lngIntakeId INTERNO ENSAMBLAN tblLUMHCData EN tblMHCIntakeDetail.lngDataId = tblLUMHCData.lngDataID A LA DERECHA EXTERNO ENSAMBLAN tblPatient EN tblMHCIntake.lngPatientId = tblPatient.lngPatientId DONDE (tblMHCIntake.dtmIntake > “1/1/2005”) y tblLUMHCData.strtype = “” y el servicetype y “” “, Connection1)




      
        Intento
            daSections.Fill (objDS, “dtSections”)
        Retén ex como excepción
            MsgBox (ex. Mensaje)

        Intento del final

        Intento
            daContent.Fill (objDS, “dtContent”)
        Retén ex como excepción
            MsgBox (ex. Mensaje)

        Intento del final

        Intento

            counttype = datype. Llenar (objDS, “dtType”)

        Coger ex como excepción
            MsgBox (ex. Mensaje)

        Intento del final
        'Si programa = “contactLog” entonces
        'System.Threading.Thread.Sleep (100000)
        'Terminar si
        objDS.Relations.Add (“SectionToContent”, _
        objDS.Tables (“dtSections”). Columnas (“dtmIntake”), _
        objDS.Tables (“dtContent”). Columnas (“dtmIntake”))


        objDS.Relations.Add (“SectionToType”, _
              objDS.Tables (“dtContent”). Columnas (“lngIntakeId”), _
              objDS.Tables (“dtType”). Columnas (“lngIntakeId”))




        nodenew = nuevo TreeNode
        nodenew. El texto = “crea el nuevo contacto del cliente…”
        nodenew. Etiqueta = “nuevo”
        TreeView1.Nodes.Add (nodenew)

        Para cada rowSupp en objDS.Tables (“dtSections”). Filas

            nodeSupp = nuevo TreeNode
            nodeSupp.Text = rowSupp (“dtmIntake”) y” - “y rowSupp (“dayname”)
            nodeSupp.Tag = “fecha del producto”
            Dotw dévil
            nodeSupp.Expand ()
            TreeView1.Nodes.Add (nodeSupp)
            ProgressBar1.Maximum = objDS.Tables (“dtContent”). Rows.Count 'esto fijará el valor máximo para evitar el error que usted consiguió antes

            Para cada rowProd en rowSupp.GetChildRows (“SectionToContent”)
                nodeProd = nuevo TreeNode
                nodeProd.Text = rowProd (“intakedate”) y” - “y rowProd (“strStaff”) y” - “y rowProd (“nombre”) y” - “y rowProd (“dtmdob”) y” - “y rowProd (“strPatientid”)
                nodeProd.Tag = rowProd (“lngIntakeID”)

                nodeSupp.Nodes.Add (nodeProd)
                Para cada rowType en rowProd.GetChildRows (“SectionToType”)
                    nodetype = nuevo TreeNode
                    nodetype. Texto = rowType (“strData”)
                    nodeProd.Nodes.Add (nodetype)
                Después

                Application.DoEvents ()

                ProgressBar1.Value += 1 'esto aumentará el valor después de cada objeto terminado
            Después

        Después



        'Timer1.Stop ()
        'TreeView1.ExpandAll ()
        'TreeView1.SelectedNode = TreeView1.Nodes.Item (2)
        TreeView1.Focus ()
        el pageload = verdad
    Submarino del extremo
class= del

Respuesta : Disminuir el tiempo de carga del árbol en vb.net 2003

Usted puede ganar una cierta hora usando BeginUpdate () /EndUpdate ():
http://msdn.microsoft.com/en-us/library/system.windows.forms.treeview.beginupdate.aspx
Otras soluciones  
 
programming4us programming4us