| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Таблицы в QuickReport [D6, Paradox]

AlexanderM ©   (2004-07-08 08:22:00) 

Подскажите, пожалуйста, как создать в QuickReport таблицу не из базы, а например из массива. Заранее неизвестно сколько будет строк.

---

Семен Сорокин   (2004-07-08 09:48:00) [1]

> AlexanderM   (08.07.04 08:22)  
> Подскажите, пожалуйста, как создать в QuickReport таблицу
> не из базы, а например из массива. Заранее неизвестно сколько
> будет строк.

Обрабатывай OnNeedData(для QRSubDetail) (для определения заканчивать ли отображения или если нет - индекса массива следующей итерации) и OnBeforePrint, где раздавай каждому QRLabel'у Caption'ы из твоего массива по индексу определенному в OnNeedData.

---

app   (2004-07-08 09:14:00) [2]

Разные вопросы в разных ветках, или ты хочешь иметь одну персональную ветку на много, много лет?

---

Ярослав   (2004-07-08 08:54:00) [3]

Попробуй добавить query.next в цикл while not eof

---

ALEXANDERM   (2004-07-08 08:36:00) [4]

with DM.Query1 do
 begin
   if Active then Close;
   SQL.Clear;
   SQL.Add('SELECT IDSpecification, IDProduct, CountProduct, ContractorName, Address ');
   SQL.Add('FROM tblSpecification, tblContractor WHERE tblSpecification.IDContractor = tblContractor.IDContractor AND IDSpecification = :Value ORDER BY IDSpecification;');
   ParamByName('Value').AsString := S;
   Open;
   While not eof do
   begin
     ShowMessage(Fields[1].AsString);
   end;
 end;
Почему-то бесконечный цикл? Хотя в базе 2 записи.

---

Наверх