Показать сообщение отдельно
  #16  
Старый 11.09.2014, 16:00
АНЯ17 АНЯ17 вне форума
Прохожий
 
Регистрация: 16.08.2014
Сообщения: 22
Версия Delphi: delphi 7
Репутация: 10
Смущение не хочет работать

не хочет работать

Код:
while not adq.Eof do //Ложь- когда цикл будет на последней строчке таблицы,если запрос ничего не вернет в цикл не зайдет
begin//С таким циклом не надо никаких First и last
adq.fields[0].asstring //- тут ваш район
adq.fields[1].asstring //- тут пол для конкретного района
adq.fields[2].asstring //- тут количество по конкретному полу и району
adq.next;//Я надеюсь что в ваших районах всегда хотя бы по 1 мужчине и женщине есть..поэтому
//строки в таблице всегда будут парными =)
end;
 

вот мая проектчик
Вложения
Тип файла: rar DB_test.rar (582.8 Кбайт, 8 просмотров)
Ответить с цитированием