Страница 1 из 1

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

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

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

СообщениеДобавлено: 10 ноя 2010 18:09
Геройчиковый
Код: Выделить всё
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