QuickReport动态创建加载显示字段的问题 ( 积分: 5 )

begin
QRShapeList[k]:=TQRShape.Create(QuickRep1.Bands.DetailBand);
QRShapeList[k].Parent:=QuickRep1.Bands.DetailBand;
QRShapeList[k].Shape:=qrsVertLine;
QRShapeList[k].Left:=((k-1)*90);
QRShapeList[k].top:=0;
QRShapeList[k].Width:=1;
QRShapeList[k].Height:=43;

// QRDBTextList[k]:=TQRDBText.Create(owner );//QuickRep1.Bands.DetailBand
QRDBText:= TQRDBText(QuickRep1.Bands.DetailBand.AddPrintable(TQRDBText));//循环进行到第2次时，在这里发生异常，异常信息我将写道下面
QRDBText.Parent:=QuickRep1;//.Bands.DetailBand
QRDBText.Left := ((k-1)*90+LeftI);
QRDBText.top := 0+TopI;
QRDBText.width := 20;
QRDBText.Height := 18;
QRDBText.DataSet := Qrs_PubFrm.table1;
QRDBText.DataField :=StringListDB[k];
end;
debug发现异常在unit QuickRpt;
if Controller is TQRController then
这里异常,各位大师给点意见吧

begin
QRShapeList[k]:=TQRShape.Create(QuickRep1.Bands.DetailBand);
QRShapeList[k].Parent:=QuickRep1.Bands.DetailBand;
QRShapeList[k].Shape:=qrsVertLine;
QRShapeList[k].Left:=((k-1)*90);
QRShapeList[k].top:=0;
QRShapeList[k].Width:=1;
QRShapeList[k].Height:=43;

// QRDBTextList[k]:=TQRDBText.Create(owner );//QuickRep1.Bands.DetailBand
QRDBText:= TQRDBText(QuickRep1.Bands.DetailBand.AddPrintable(TQRDBText));//循环进行到第2次时，在这里发生异常，异常信息我将写道下面
QRDBText.Parent:=QuickRep1;//.Bands.DetailBand
QRDBText.Left := ((k-1)*90+LeftI);
QRDBText.top := 0+TopI;
QRDBText.width := 20;
QRDBText.Height := 18;
QRDBText.DataSet := Qrs_PubFrm.table1;
QRDBText.DataField :=StringListDB[k];
end;
debug发现异常在unit QuickRpt;
if Controller is TQRController then
这里异常,各位大师给点意见吧