Помогите создать TreeView

← →
ruslan_as © (2003-12-25 13:02) [0]

Есть таблицы ODSOtdel(отделы) и подчиненная ODSGrupa(группы).
Ниже приведенным кодом создаю TreeView2.
Но все следующие группы в TreeView создаются в первом отделе.
Где ошибка?
Зараниее благодарен за подсказку.

ODSOtdel.First;
while not ODSOtdel.Eof do
begin
TreeView2.Items.Add(nil,ODSOtdelN_OTD.AsString);//Создаю отдел

while not ODSGrupa.Eof do
begin
node:=TreeView2.Items.AddChild(TreeView2.Items.Item[ODSOtdel.RecNo-1],ODSGrupaN_GRP.AsString);//Добавляю группу
ODSGrupa.Next;
end;

ODSOtdel.Next;
end;//while not ODSOtdel.Eof do

← →
ruslan_as © (2003-12-25 13:27) [1]

Кто-нибудь...

← →
Smithson © (2003-12-25 13:31) [2]

Part := TreeView2.Items.Add ... node := TreeView2.Items.AddChild(Part,ODSGrupaN_GRP.AsString); //Добавляю группу

Попробуй так.

Ну ты родителся ставишь не верно AddChild.

Помогите создать TreeView Найти похожие ветки