Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.25;
Скачать: 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 вся ветка

Текущий архив: 2004.07.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.092 c
6-1085565232
Said
2004-05-26 13:53
2004.07.25
Список компьютеров сети


6-1085369766
maDByte
2004-05-24 07:36
2004.07.25
Проверка состояния HTTP и FTP серверов


1-1089714118
Бывалый
2004-07-13 14:21
2004.07.25
Lotus Notes & Delphi


3-1088715451
Alexei Sviridov
2004-07-02 00:57
2004.07.25
Клиент для IB


1-1089274655
aliced
2004-07-08 12:17
2004.07.25
Панель Delphi отсутствует при открытии проекта