Выборка1 = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока Выборка1.Следующий() Цикл
Выборка2 = Выборка1.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока Выборка2.Следующий() Цикл
Выборка3 = Выборка2.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока Выборка3.Следующий() Цикл
Выборка4 = Выборка3.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока Выборка4.Следующий() Цикл
Выборка5 = Выборка4.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока Выборка5.Следующий() Цикл
Выборка6 = Выборка5.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока Выборка6.Следующий() Цикл            
и т. д.

всего 28 уровней а нужен самый нижний - как сократить?

возможна здесь рекурсия

Сделай рекурсию.

Еще можно генерить код программно.

не могу никак сочинить, а как можно генерить код програмно?

(3) Конкатенация строк, а затем Выполнить(строка);

пасибо подумаю

хм... вполне рекурсивный вызов потянет....