Текущий архив: 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
