Maintains performance when items are added to the group one at a time.
This method prevents the group from painting until the EndUpdate method is called. The BeginUpdate and EndUpdate methods increases the speed of loading your items, by preventing painting the group when it suffers any change. Once that BeginUpdate method was called, you have to make sure that EndUpdate method will be called too.
The following sample shows how to use the BeginUpdate and EndUpdate methods:
With ExplorerTree1.Groups.Add("Group 1") Set rs = CreateObject("ADODB.Recordset") rs.Open "Orders", "Provider=Microsoft.Jet.OLEDB.3.51;Data Source= D:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB", 3 ' Opens the table using static mode .BeginUpdate .ColumnAutoResize = False .HeaderVisible = True ' By default, the group adds a default colum, so we remove it first .Columns.Clear For Each f In rs.Fields .Columns.Add f.Name Next .PutItems rs.GetRows() .EndUpdate End With