11.09.2014, 16:00
|
Прохожий
|
|
Регистрация: 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;
вот мая проектчик
|