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/