做一个健康、快乐的自己!并努力往前飞!

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:

 

评分:0

我来说两句

显示全部

:loveliness: :handshake :victory: :funk: :time: :kiss: :call: :hug: :lol :'( :Q :L ;P :$ :P :o :@ :D :( :)

日历

« 2008-10-14  
   1234
567891011
12131415161718
19202122232425
262728293031 

数据统计

  • 访问量: 5265
  • 日志数: 76
  • 图片数: 1
  • 建立时间: 2008-03-10
  • 更新时间: 2008-08-24

RSS订阅

Open Toolbar