Класс esSort

Сортировка по возрастанию.

Это команды, а не функции, они ничего не возвращают, и исходные объекты заменяются отсортированными.

Методы

· Array1 Arr As Variant – Сортировка одномерного массива.

· Array2 Arr As Variant, ParamArray ColumnNums() – Сортировка двумерного массива.
Аргумент ColumnNums – список номеров столбцов, определяющий порядок сортировки.

· Collection Coll As Collection – Сортировка объекта Collection по возрастанию значений.

· Dictionary Dict As Object – Сортировка объекта Scripting.Dictionary по возрастанию ключа.

Пример

Private Sub GetCatalog(lst As Collection, cat As ADOX.Catalog)

Dim tbl as ADOX.Table

For Each tbl In cat.Tables

If tbl.Type <> "SYSTEM TABLE" And tbl.Type <> "ACCESS TABLE" Then

lst.Add tbl.Name & " (" & tbl.Type & ")"

End If

Next

With New esSort

.Collection lst

End With

End Function