отчет и БД. отображает только первую запись

← →
Frosn (2006-04-04 11:22) [0]

есть отчет, он берет данные из таблицы. проблемма в том, что при превью отчета она показывает только одну страницу, на которой данные только из первой записи. А записей -то больше.

← →
Sergey13 © (2006-04-04 11:29) [1]

Пропиши отчету датасет.

← →
Frosn (2006-04-04 11:34) [2]

так он прописан. указывает на ibtable1 оттуда все и берется

← →
Sergey13 © (2006-04-04 11:34) [3]

На чем отчет то сделан?

← →
Frosn (2006-04-04 11:37) [4]

qr3.6.2

← →
Плохиш © (2006-04-04 11:55) [5]

Репорт должен иметь TQRSubDetail

← →
FROSn (2006-04-04 11:57) [6]

делаю отчет с нуля в новом проекте на туже таблицу и все нормально... а в этой проге ну никак не хочет

← →
Плохиш © (2006-04-04 11:58) [7]

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

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

← →
FROSn (2006-04-04 12:02) [8]

вот я и гадаю где там и что может быть

← →
Плохиш © (2006-04-04 12:15) [9]

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

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

← →
FROSn (2006-04-04 12:49) [10]

Удалено модератором

← →
Sergey13 © (2006-04-04 12:52) [11]

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

← →
FROSn (2006-04-04 12:56) [12]

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;

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

← →
Плохиш © (2006-04-04 13:04) [13]

> FROSn (04.04.06 12:56) [12]

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

← →
FROSn (2006-04-04 13:11) [14]

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:13) [15]

> FROSn (04.04.06 13:11) [14]

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

← →
FROSn (2006-04-04 13:15) [16]

да, но в другом проекте без него все чудесно работает

← →
Megabyte © (2006-04-04 13:17) [17]

Какое-то свойство забыл прописать у компонентов отчета(DataSet прописал и у главного компонента, и у компонетов вывода на экран?)! Сейчас нет возможности проверить, у самого такое было, когда копался с QuickRep давно.

← →
FROSn (2006-04-04 13:19) [18]

Да, Датасет прописал у всех...

← →
Sergey13 © (2006-04-04 13:24) [19]

2[18] FROSn (04.04.06 13:19)
Кинь гридину (если нет) с этим датасетом на форму и посмотри сколько там записей перед печатью.

← →
Плохиш © (2006-04-04 13:27) [20]

DetailBand1.BandType := rbDetail;

← →
FROSn (2006-04-04 13:33) [21]

в гриде все записи

← →
FROSn (2006-04-04 13:35) [22]

он и есть rbdetail

← →
Sergey13 © (2006-04-04 13:37) [23]

2[21] FROSn (04.04.06 13:33)
Ну давай еще код кнопки "Печать".
Свойство DataSet у QuickRep1 точно ibtable1?
QRDBText-ы лежат на DetailBand1?

← →
FROSn (2006-04-04 13:41) [24]

ну да все лежит там где надо и датасеты у всех на ibtable1.
вот код кнопки печать

procedure TForm1.Button5Click(Sender: TObject);
begin
//ibtable1.Refresh;
form2.QuickRep1.Preview;
end;

← →
Плохиш © (2006-04-04 13:44) [25]

Осталось только привести здесь файл rep.dfm

← →
FROSn (2006-04-04 13:48) [26]

а еще и rep.dcu :)

> Плохиш © (04.04.06 13:13) [15]
>
> > FROSn (04.04.06 13:11) [14]
>
> Читать [5] до полного просветления.

Нафиг там SubDetail?

← →
FROSn (2006-04-04 13:52) [28]

вот и я о том же

← →
FROSn (2006-04-04 14:07) [29]

мистика какая-то

← →
FROSn (2006-04-05 09:22) [30]

больше никто ничего не скажет?

>есть отчет, он берет данные из таблицы. проблемма в том, что при превью
>отчета она показывает только одну страницу, на которой данные только из
>первой записи. А записей -то больше.

>делаю отчет с нуля в новом проекте на туже таблицу и все нормально... а в
>этой проге ну никак не хочет

Тебе осталось найти X различий.

← →
FROSn (2006-04-05 11:11) [32]

да нет там различий, между отчетами...

Когда нет различий, то и результат одинаковый.

← →
FROSn (2006-04-05 12:10) [34]

между самими отчетами (свойствами) различий нет.

> FROSn (05.04.06 12:10) [34]
> между самими отчетами (свойствами) различий нет.

Не верю (c)

В просторечье - врет

отчет и БД. отображает только первую запись Найти похожие ветки