动态报表只能生成第一条记录，找不到原因！！！【给100分】

Question

用下列程序可以生成字段的字段名（用aLabel变量），用aText却只能生成第一条记录！能不能告诉我更好的解决办法，但是除了Infopower、1stClass不要用其他第三方控件，请大伙帮忙了，谢谢！
------------------------------------------------
procedure TFormDataView.BitBtn3Click(Sender: TObject);
var
  aLabel: TQRLabel;
  aText:TQRDBText;
  FieldCount,i,LeftValue:integer;
begin
  FieldCount:=ADOQueryPianQu.SQL.Count;  LeftValue:=0;
  for i:=0 to FieldCount-1 do //循环FieldCount次，生成所有列
    begin
    aLabel:=TQRLabel.Create(FormPrintZD); //FormPrintZD 是一个放置QuickRep的Form
    with FormPrintZD do
    aLabel.Parent:= HeaderBand1; //放在HeaderBand（rbDetail）里
    with aLabel do               //设置属性
      begin
        AutoSize:=True;         //好像这个值必须为True
        AutoStretch:=True;
        Alignment:=taLeftJustify;
        Left:=LeftValue;
        Top:=8;
        Height:=14;
        LeftValue:=Width+LeftValue+10;
      end;
    end;  LeftValue:=0;
  for i:=0 to FieldCount-1 do
    begin
    aText:=TQRDBText.Create(FormPrintZD); 
    with FormPrintZD do
    aText.Parent:= QRSubDetail1;
    with aText do
      begin
        Dataset:=ADOQueryDataView;
        DataField:=ADOQueryDataView.Fields[i].FieldName;
        AutoSize:=True;
        AutoStretch:=True;
        Alignment:=taLeftJustify;
        Left:=LeftValue;
        Top:=8;
        Height:=14;
        LeftValue:=Width+LeftValue+10;
      end;
    end;    FormPrintZD.QuickRep1.Preview;
end;

Answer 1

你是说QuickRep的Dataset属性吗？我已经设置为ADOQueryDataView了，用aText却只能生成第一条记录，怪怪，:(

Answer 2

没碰到过，一般只有没设置QuickRep的Dataset才会只出一条记录，你这个情况真奇怪

Answer 3

在with aLabel do里有一句忘记贴出来了
Caption:=ADOQueryDataView.Fields[i].FieldName;things(平): 我试过,不行! ft...

Answer 4

为什么使用subdetailband呢？
aText的dataset其实可以不设置，只要band设置了就可以

Answer 5

我认为你把这句话：
        Top:=8;
改为   top:=top+i*10;
你的top应该一直改变

Answer 6

建议：band的不要同时用rbPageHeader和rbtitleHeader,否则经常出现这样的问题

Answer 7

我也认为应该是这一句导致这个现象：
Top := 8
注意事项都考虑到了，那就是你语句设值的错误了。

Answer 8

谢谢大伙，我想应该是Top := 8这句的问题，我的确是个菜啊！找到一篇好文章：《DELPHI报表的动态生成》
http://www.ahetc.gov.cn/cit/200012/15.doc谢谢了，开始派分... :)
----------------------------
I Love ：GNU/Linux、Delphi、Cisco...
QQ：9795755 [email protected]