Форум: "Основная";
Текущий архив: 2004.01.09;
Скачать: [xml.tar.bz2];
Вниз
Помогите создать 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.019 c
