Скачать: CL | DM;

Таблицы в QuickReport   Найти похожие ветки 

← →
AlexanderM   (2004-07-08 08:22) [0]

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

---

← →
ALEXANDERM   (2004-07-08 08:36) [1]

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 записи.

---

← →
Ярослав   (2004-07-08 08:54) [2]

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

---

← →
app ©   (2004-07-08 09:14) [3]

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

---

← →
Семен Сорокин ©   (2004-07-08 09:48) [4]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c