fastreport动态生成的报表为什么只显示一行呀！！！！！ ( 积分: 30 )

动态生成的报表为什么只显示一行呀！！！！

var
i,y:integer;
b,b1: TfrBandView;
Page: TfrPage;
v,v1: TfrView;
begin
frReport9.Pages.Clear;
frReport9.Pages.Add;
frReport9.Dataset:=frDBDataSet16;
Page := frReport9.Pages[0];
Page.pgOr:=poLandscape;
b1:=TfrBandView(frCreateObject(gtBand,''));
//生成PageHeader条
b1.SetBounds(10,0,0,20);
b1.BandType:=btPageHeader;
b := TfrBandView(frCreateObject(gtBand, ''));
//生成MasterData条
b.SetBounds(0, 21, 0, 20);
b.BandType := btMasterData;
b.Dataset := 'frDBDataSet16';
page.Objects.Add(b1);//生成
Page.Objects.Add(b);
y:=25;
v := frCreateObject(gtMemo, '');
// create data field
v.SetBounds(y, 100, 75, 16);
v.FrameTyp:=15;
v.Memo.Add(' 井号 ');
Page.Objects.Add(v);
v1 := frCreateObject(gtMemo, '');
// create data field
v1.FrameTyp:=15;
v1.SetBounds(y, 116, 75, 16);
v1.Memo.Add('[ADOQuery1."jh"]');
Page.Objects.Add(v1);
y:=y+75;
frReport9.ShowReport;
end;

动态生成的报表为什么只显示一行呀！！！！

var
i,y:integer;
b,b1: TfrBandView;
Page: TfrPage;
v,v1: TfrView;
begin
frReport9.Pages.Clear;
frReport9.Pages.Add;
frReport9.Dataset:=frDBDataSet16;
Page := frReport9.Pages[0];
Page.pgOr:=poLandscape;
b1:=TfrBandView(frCreateObject(gtBand,''));
//生成PageHeader条
b1.SetBounds(10,0,0,20);
b1.BandType:=btPageHeader;
b := TfrBandView(frCreateObject(gtBand, ''));
//生成MasterData条
b.SetBounds(0, 21, 0, 20);
b.BandType := btMasterData;
b.Dataset := 'frDBDataSet16';
page.Objects.Add(b1);//生成
Page.Objects.Add(b);
y:=25;
v := frCreateObject(gtMemo, '');
// create data field
v.SetBounds(y, 100, 75, 16);
v.FrameTyp:=15;
v.Memo.Add(' 井号 ');
Page.Objects.Add(v);
v1 := frCreateObject(gtMemo, '');
// create data field
v1.FrameTyp:=15;
v1.SetBounds(y, 116, 75, 16);
v1.Memo.Add('[ADOQuery1."jh"]');
Page.Objects.Add(v1);
y:=y+75;
frReport9.ShowReport;
end;