K
kktysoft
Unregistered / Unconfirmed
GUEST, unregistred user!
我用ADODATASET查询两个表的结果生成一个数据集，生成的表的字段有，
户籍编号，与户主关系，姓名……
10001 户主 暗暗
10001 子 A
10001 妻 B
10002 户主 V
10002 女 K
10003 户主 E
报表输出的格式要求每一户人家打印一张报表（户籍编号相同的是一家人），就是户口薄，而且每张报表必须已户主开头。
报表是竖排的，我想这个应该关系不大
我用QUICKREP的NEWPAGE属性，可是总是出错，我把代码贴出来，希望各位高手指教，急
procedure TForm2.DetailBand1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
var
tt:string;
begin
with form1.adodataset1do
begin
next;
if not eof then
begin
tt:=trim(FieldByName('about').asstring);
prior;
if tt='户主' then
quickrep1.Newpage;
end;
end;
end;
我要达到的报表的要求是，如果与户主的关系是‘户主’的话，就从新的一页开始打印
户籍编号，与户主关系，姓名……
10001 户主 暗暗
10001 子 A
10001 妻 B
10002 户主 V
10002 女 K
10003 户主 E
报表输出的格式要求每一户人家打印一张报表（户籍编号相同的是一家人），就是户口薄，而且每张报表必须已户主开头。
报表是竖排的，我想这个应该关系不大
我用QUICKREP的NEWPAGE属性，可是总是出错，我把代码贴出来，希望各位高手指教，急
procedure TForm2.DetailBand1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
var
tt:string;
begin
with form1.adodataset1do
begin
next;
if not eof then
begin
tt:=trim(FieldByName('about').asstring);
prior;
if tt='户主' then
quickrep1.Newpage;
end;
end;
end;
我要达到的报表的要求是，如果与户主的关系是‘户主’的话，就从新的一页开始打印