Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

отчет и БД. отображает только первую запись [D7, IB5.x]

Страницы: < 1 2
Frosn © (2006-04-04 11:22:00)
есть отчет, он берет данные из таблицы. проблемма в том, что при превью отчета она показывает только одну страницу, на которой данные только из первой записи. А записей -то больше.

FROSn (2006-04-04 13:15:00) [21]
да, но в другом проекте без него все чудесно работает

Плохиш (2006-04-04 13:13:00) [22]

> FROSn (04.04.06 13:11) [14]

Читать [5] до полного просветления.

FROSn (2006-04-04 13:11:00) [23]
unit rep;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, QuickRpt, main, QRCtrls;

type
TForm2 = class(TForm)
QuickRep1: TQuickRep;
DetailBand1: TQRBand;
QRLabel1: TQRLabel;
QRDBText1: TQRDBText;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRDBText7: TQRDBText;
QRDBText8: TQRDBText;
QRLabel10: TQRLabel;
QRShape1: TQRShape;
QRShape2: TQRShape;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

Плохиш (2006-04-04 13:04:00) [24]

> FROSn (04.04.06 12:56) [12]

Что написано до слова implementation в модуле репорта увидеть можно?

FROSn (2006-04-04 12:56:00) [25]
k:=listbox1.ItemIndex;
for i:=0 to listbox2.Count-1 do
begin
if listbox1.Items.Strings[k]=listbox2.Items.Strings[i] then present:=true;
end;
if present=false then
begin
try
listbox2.AddItem(listbox1.Items.strings[k], form1);
ibtable1.insert;
ibtable1.Fields.Fields[0].AsString:=listbox1.Items.strings[k];
ibtable1.Fields.Fields[1].text:=edit1.Text;
ibtable1.Fields.Fields[2].AsString:=edit2.Text;
ibtable1.Fields.Fields[3].AsString:=edit3.Text;
ibtable1.Fields.Fields[4].AsString:=edit4.Text;
ibtable1.Fields.Fields[5].AsString:=edit5.Text;
ibtable1.Fields.Fields[6].AsString:=edit6.Text;
ibtable1.Fields.Fields[7].AsString:=edit7.Text;
ibtable1.Fields.Fields[8].AsString:=memo1.Text;
ibtable1.Fields.Fields[9].AsString:=memo2.Text;
ibtable1.post;
except on EStringListError do showmessage('Íè÷åãî íå âûáðàíî')end;

end;

вот такой вот код... при экспорте в Эксель, все записи отображаются, а если отчетом, то только первая запись.

Sergey13 (2006-04-04 12:52:00) [26]
2 [10] FROSn (04.04.06 12:49)
Он тебе просто намекает, что кода твоего не видел, а никакой конкретики ты не сообщаешь.

FROSn (2006-04-04 12:49:00) [27]
Удалено модератором

Плохиш (2006-04-04 12:15:00) [28]

> FROSn (04.04.06 12:02) [8]
> вот я и гадаю где там и что может быть

Ну тогда приходи после моего обеда, я там может быть кофейку заварю, вместе и погадаем.

FROSn (2006-04-04 12:02:00) [29]
вот я и гадаю где там и что может быть

Плохиш (2006-04-04 11:58:00) [30]

> FROSn (04.04.06 11:57) [6]
> делаю отчет с нуля в новом проекте на туже таблицу и все
> нормально... а в этой проге ну никак не хочет

Надо исправлять ошибку в программе.

FROSn (2006-04-04 11:57:00) [31]
делаю отчет с нуля в новом проекте на туже таблицу и все нормально... а в этой проге ну никак не хочет

Плохиш (2006-04-04 11:55:00) [32]
Репорт должен иметь TQRSubDetail

Frosn (2006-04-04 11:37:00) [33]
qr3.6.2

Sergey13 (2006-04-04 11:34:00) [34]
На чем отчет то сделан?

Frosn (2006-04-04 11:34:00) [35]
так он прописан. указывает на ibtable1 оттуда все и берется

Sergey13 (2006-04-04 11:29:00) [36]
Пропиши отчету датасет.

Страницы: < 1 2

Наверх

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