数据库主从表打印，如何在在从表的记录前自动添加上序号！请各位大侠帮帮手！(100分)

数据库主从表打印，如何在在从表的记录前自动添加上序号！请各位大侠帮帮手！

定义一个Private变量 iCount;
放一个QRLabel到DetailBand;
QRLabelPrint时 INC（iCount），并打印值
在GroupFooter Print时清零。
OK.
unit Unit2;
interface
uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls, DB, DBTables;
type
TQuickReport2 = class(TQuickRep)
QRBand1: TQRBand;
QRGroup1: TQRGroup;
QRBand2: TQRBand;
Query1: TQuery;
QRLabel1: TQRLabel;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRBand3: TQRBand;
QRExpr1: TQRExpr;
procedure QRLabel1Print(sender: TObject;
var Value: String);
procedure QuickRepBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
procedure QRBand3AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
procedure QuickRepAfterPreview(Sender: TObject);
private
iCount:integer;
public
end;

var
QuickReport2: TQuickReport2;
implementation
{$R *.DFM}
procedure TQuickReport2.QRLabel1Print(sender: TObject;
var Value: String);
begin
INC(iCount);
Value :=InttoStr(iCount);
end;

procedure TQuickReport2.QuickRepBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
iCount:=0;
end;

procedure TQuickReport2.QRBand3AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
iCount:=0;
end;

procedure TQuickReport2.QuickRepAfterPreview(Sender: TObject);
begin
Free;
end;

end.

感谢delphiland的回答，我在测试的过程中发现从表只显示一条记录，不知是怎么一回事，
希望你能在帮帮手，非常感谢

非常感谢delphiland，序号的问题已经决；另在测试的过程中发现从表只显示一条记录，
是忘记在明细表条中加数据集。