Текущий архив: 2004.01.09;
Скачать: CL | DM;

Вниз

Помогите создать 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); //Добавляю группу


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

---

← →
Тимохов ©   (2003-12-25 13:33) [3]

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

---

Страницы: 1 вся ветка

Текущий архив: 2004.01.09;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.036 c