报表问题：我动态生成QRDBText，但显示不出数据。

Question

你的parent有问题
QRStringsBand1
var
  bb :tqrdbtext;
begin
    begin
          bb  :=tqrdbtext.Create(self);         bb.Parent    :=QRStringsBand1; //QuickRep1.Bands.DetailBand ;
//          bb.DataSet   :=Form1.ADOQuerySalary;
//          bb.DataField :=Form1.DBGrid1.Columns[i+1].FieldName;
          bb.AutoSize  :=false;
          bb.Width     :=50;
          bb.Height    :=10;
          BB.Left      :=10;
      end;
end;我刚作了这个实验，可以显示
你把你的bb.parent :=那一句改一下，应该就可以发

Answer 1

不是吧。。是0 to Count-1 吧？？？你作的东西我实现过了也碰到一样的问题。。具体问题忘了。。不过很快就自己解决。。并不难。

Answer 2

REP:netlib(河外孤星) 
   我现在所要显示的数据要显示在DetailBand中，而QRStringsBand1我没用过，不清楚是属于那Ｂａｎｄ的，能否说清楚一点，谢谢！
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！★  浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★  多种帖子实现界面。 
★  保存帖子到本地[html格式]★  监视您关注帖子的回复更新。
★  可以直接发贴、回复帖子★  采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！ 
★  支持在线检测程序升级情况，可及时获得程序更新的信息。★★ 签名  ●  
     可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe    [自解压]

Answer 3

ＲＥＰ：netlib(河外孤星) 
　　谢谢你的帮助！你刚才所答的，我试过，还是不行呀。
而且我发现bb.Parent:= QuickRep1.Bands.DetailBand ;好似没错。至少它还能在QuickRep1.Bands.DetailBand 中根据数据有多少记录就显示有多少行，只不过是它显示的值为空。而你说设bb.Parent:=QRStringsBand1; 但发现在QRStringsBand1中不能创建bb,也显示不出数据。能不能再详细的说一下。谢谢！
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！★  浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★  多种帖子实现界面。 
★  保存帖子到本地[html格式]★  监视您关注帖子的回复更新。
★  可以直接发贴、回复帖子★  采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！ 
★  支持在线检测程序升级情况，可及时获得程序更新的信息。★★ 签名  ●  
     可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe    [自解压]

Answer 4

我以前实现过的，并能正常显示（可能是Parent的问题）：
            T:=TQRDBText.Create(DetailBand1);
            T.Parent:=DetailBand1;
            T.DataSet:=ClientDataSet1;
            T.DataField:=sPrintData.sFields[i].sField;
            T.Top:=iTop-2;
            T.Left:=iLeft;
            T.Width:=sPrintData.sFields[i].iWith;
            T.Alignment:=taLeftJustify;
            T.Transparent:=true;
            iLeft:=iLeft+ L.Width;

Answer 5

可能是parent有问题，下列是我以前实现过的语句，并能正常显示：            T:=TQRDBText.Create(DetailBand1);
            T.Parent:=DetailBand1;
            T.DataSet:=ClientDataSet1;
            T.DataField:=sPrintData.sFields[i].sField;
            T.Top:=iTop-2;
            T.Left:=iLeft;
            T.Width:=sPrintData.sFields[i].iWith;
            T.Alignment:=taLeftJustify;
            T.Transparent:=true;
            iLeft:=iLeft+ L.Width;

Answer 6

可能是parent有问题，下列是我以前实现过的语句，并能正常显示：            T:=TQRDBText.Create(DetailBand1);
            T.Parent:=DetailBand1;
            T.DataSet:=ClientDataSet1;
            T.DataField:=sPrintData.sFields[i].sField;
            T.Top:=iTop-2;
            T.Left:=iLeft;
            T.Width:=sPrintData.sFields[i].iWith;
            T.Alignment:=taLeftJustify;
            T.Transparent:=true;
            iLeft:=iLeft+ L.Width;