_иван_Присоединесь к вопросу
Юрий, не покажите кодом
как это можно сделать
при структуре таблицы
ID RARENTID NAME итд
Спасибо

Лови...
* создаем временный курсор
tmpCursor = SYS(2015)
CREATE Cursor (tmpCursor) ;
(Key C(15) ,;
Level N(4) ,;
Parent C(15) ,;
Text C(50))


SELECT key, parent, text ;
from [YouTable] WHERE parent = '0_' ;
INTO CURSOR (menu_cursor)

GO TOP

nLevel = 0

DO WHILE !EOF()
xkey = key
xtext = text
xparent = Parent

INSERT INTO (tmpCursor) VALUE (xkey, nlevel, xparent, '', xText)

thisform.GoTree(xKey)

SELECT (menu_cursor)
skip
ENDDO
SELECT (tmpCursor)
COPY TO exportXLS Type XLS

*********************************************
Method.goTree
LParameters parentkey
PRIVATE tmp_rec

SELECT [YourTable]
Set order to parent && обязательно должен быть!!!!
Seek parentkey

IF FOUND()

nLevel = nLevel + 1

DO while !EOF() AND Parent = parentkey
pText = text
pKey = Key
pParent = parentkey
INSERT INTO (TmpCursor) (key_menu, Level, parent, Text) ;
Value (pkey, nLevel, parentkey, pText )

SELECT [YourTable]

tmp_rec = Recno()

= Thisform.GoTree(pKey)

Select [YourTable]
GO tmp_rec
SKIP

Enddo
nLevel = nLevel - 1
Endif

Сфё!!!!

asp.netJurisfox, ваш ответ единтсвенно - правильный. Тут только XML со схемой поможет.

P.S Схема для того, чтобы не "мурыжить" пользователя обновлениями EXE или APP. Программа смотрит структуру на основе схемы XML и строит дерево из документа. Ясное дело в XML может валяться все что угодно хоть 100 летней давности. Главное совпадение : схема - скрутура документа.
Удачи.
Понимаешь, конечно можно воспользоваться чем угодно, XML и прочими другими новшевствами, но по-моему ты суть вопроса не вникнул... Человек попросил собрать из свой таблицы, а не из дерева (ActiveX), таблицу, напоминающюю в точности структуру дерве, а здесь без рекурсивного обхода структур не обойтись... Пример от Microsoft экспорт дерева в таблицу - корявый....Убеди меня в обратном....
Thanx

Microsoft решил перевсти на этот формат все свои jabcyst ghbkj;tybz Word, Excel, PowerPoint, но этот формат поддерживается более конкретно начиная с VFP 8.... Установи, читай, интересно... но пока особого применеия в своих приладах я не нашел....