急!急!急!怎样才能打印当前的连续四个记录要例子?

[liaoqiang]

在report做的报表中,怎样才能打印TDBgrid中当前的连续四个记录,而且返回TDBgrid,
要一个实际的例子,谢谢!!!!!我的E_MAIL:[e-mail].不盛感激.

[jedei]

var
iLoop,iRecerdCount: Integer;
Begin
DBGrid1.DataSource.Enabled:=False;
While (Not DBGrid1.DataSource.DataSet.Eof) And iRecordCount <4 Do
Begin
写QuickReport的代码
DBGrid1.DataSource.DataSet.Next;
Inc(iRecordCount);
End;
DBGrid1.DataSource.DataSet.MoveBy(iRecordCount*-1);
DBGrid1.DataSource.Enabled:=True;
End;

[flytiger1977]

用报表控件设置一下就行了