做一个健康、快乐的自己!并努力往前飞!
fastreport 中关于分页和pascalscript中使用数据源
上一篇 /
下一篇 2008-03-10 22:40:41
/ 个人分类:报表设计
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,
导入论坛
引用链接
收藏
分享给好友
推荐到圈子
管理
举报
TAG: