这个很简单的。
我这个例子是主从表的情况。
procedure TfrmInvoicePrt.frReport1ManualBuild(Page: TfrPage);
var
i,j,k: Integer;
begin
while not frdbdataset1.Eofdo
begin
Page.ShowBandByName('主项数据1');
Page.ShowBandByName('细项头1');
for j:=1 to 8do
begin
if not frdbdataset2.Eof then
begin
Page.ShowBandByName('细项数据1');
frdbdataset2.Next;
end
else
Page.ShowBandByName('子1');
end;
Page.ShowBandByName('细项脚1');
frdbdataset1.Next;
end;
end;