fastreport 中关于分页和pascalscript中使用数据源

procedure Page1OnManualBuild(Sender: TfrxComponent);
var
i: Integer;
DataSet1: TfrxDataSet;
DataSet2: TfrxDataSet;
begin
DataSet1 := MasterData1.DataSet;
DataSet2 := MasterData2.DataSet;

DataSet1.First;
DataSet2.First;

while true do
begin
for i:=0 to 5 do
begin
if DataSet1.Eof then Exit;
Engine.ShowBand(MasterData1);
DataSet1.Next;
end;

for i:=0 to 5 do
begin
if DataSet2.Eof then Exit;
Engine.ShowBand(MasterData2);
DataSet2.Next;
end;

if (DataSet1.Eof) and (DataSet2.Eof) then Exit;
end;
end;

MasterData的DataSet指向frxDBDataset1，frxDBDataset1的DataSet指向ADOQuery，ADOQuery指定查询，

加在MasterData的memo的DataSet指向frxDBDataset1，DataField指向对应的字段名，

masterdata的columns可以默认为0,

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10311592/viewspace-201999/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10311592/viewspace-201999/