Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 04.10.2012, 12:20
Zork Zork вне форума
Прохожий
 
Регистрация: 13.04.2009
Сообщения: 13
Репутация: 10
По умолчанию не могу пройтись по таблице и выбрать значения

Всем добрый день. Подскажите что не так делаю. Есть таблица структуры дерево, в ней поля под названием "R_Num" "R_Parent" "R_Name" и т.д. Парент это соответственно родитель, если нету у раздела родителя тоесть 0, то это главный раздел. Хочу пройтись по всем записям в таблице и где родитель = 0, тоесть называния главных разделов, хочу добавить в список. Но курьез в том что в список добавляется только первый найденый результат. Скрин прилагаю... и вот код:

Код:
tRazdels.First;
while not tRazdels.Eof do
begin
If tRazdels['R_Parent']<> 0 then Exit
else
b:=tRazdels['R_Name'];
ComboBox3.Items.Add(b);
tRazdels.Next;
end;

Ответить с цитированием
  #2  
Старый 04.10.2012, 12:27
Аватар для Lost_Fish
Lost_Fish Lost_Fish вне форума
Начинающий
 
Регистрация: 21.07.2011
Адрес: Новосибирск
Сообщения: 103
Версия Delphi: Delphi 7,XE2
Репутация: выкл
По умолчанию

Exit - выходит из процедуры

нужно

Код:
If tRazdels['R_Parent']=0 then 
ComboBox3.Items.Add(tRazdels['R_Name']);
tRazdels.Next;
__________________
Код сырец
Ответить с цитированием
Этот пользователь сказал Спасибо Lost_Fish за это полезное сообщение:
Zork (04.10.2012)
  #3  
Старый 04.10.2012, 12:32
Zork Zork вне форума
Прохожий
 
Регистрация: 13.04.2009
Сообщения: 13
Репутация: 10
По умолчанию

Спасибо, получилось.)
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 02:57.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter