Как сортировать SmRecordList?

[Linc]

ДОброго времени суток! Друзья , подскажите пожалуйста, как сделать сортировку набора данных типа SmRecordList по возрастанию или по убыванию?
Т.е. у меня есть набор записей, которые я получаю поиском по разным критериям, знаю что есть метод Sort у SmRecordList'a но не могу понять как он работает.. буду признателен если кто подскажет!

[Геройчиковый]

Код: Выделить всё

Dim RL As Object
Dim SortQuery As Object

Set RL = CreateObject("SmRecList.SmRecordList")
RL.AddHeader "Column1", 256, sdtChar
RL.AddHeader "Column2", 256, sdtChar

Set SortQuery = CreateObject("SmRecList.SmRecordList")
SortQuery.AddHeader "COL_NAME", 256, sdtChar
SortQuery.AddHeader "TDM_DIRECTION", 4, sdtBoolean
SortQuery.ValueAsBoolean("TDM_DIRECTION", 0) = True   'сортировка по возрастанию (false - по убыванию)

SortQuery.Value("COL_NAME", 0) = "Column1"      ' Сортируем RL, по столбцу Column1
RL.Sort SortQuery, 1, 0