這裡的問題是 我要如何控制一個Band 讓他跑十次呢 假設一個Band上面只有一筆資料 當我TimeReportForm點選九次 代表說 要跑九個Band 請教一下 我該如何設計呢 謝謝 procedure TTimeReportForm.Button1Click(Sender: TObject); begin Application.CreateForm(TPrtProject, PrtProject); //PrtProject.QuickRep1.Prepare; PrtProject.TotalPage:=PrtProject.QuickRep1.PageNumber; if checkall=0 then PrtProject.QRLabel26.Caption:=checkname; //如何讓他跑出十次呢 if checkall=1 then ShowMessage('這一部分還未作好 '); //模擬輸出圖表 PrtProject.Series1.Add(0, '工期一' , clRed); PrtProject.Series1.Add(2, '工期二' , clRed); PrtProject.Series1.Add(3, '工期三' , clRed); PrtProject.Series1.Add(1, '工期四' , clRed); PrtProject.Series1.Add(2, '工期五' , clRed); PrtProject.Series1.Add(5, '工期六' , clRed); PrtProject.Series1.Add(4, '工期七' , clRed); PrtProject.Series1.Add(4, '工期八' , clRed); PrtProject.Series1.Add(3, '工期九' , clRed); PrtProject.Series2.Add(0, '工期一' , clRed); PrtProject.Series2.Add(2, '工期二' , clRed); PrtProject.Series2.Add(3, '工期三' , clRed); PrtProject.Series2.Add(1, '工期四' , clRed); PrtProject.Series2.Add(2, '工期五' , clRed); PrtProject.Series2.Add(5, '工期六' , clRed); PrtProject.Series2.Add(4, '工期七' , clRed); PrtProject.Series2.Add(4, '工期八' , clRed); PrtProject.Series2.Add(3, '工期九' , clRed); if CheckBox11.Checked= True then PrtProject.QuickRep1.Preview else PrtProject.QuickRep1.Print; end;

您有試過onNeedData事件嗎? ～～～Delphi K.Top討論區站長～～～

------
～～～Delphi K.Top討論區站長～～～

我在程式上的做法是在異動的table中加入空白的記錄    例如:   我要製作出貨單 ，但因每筆出貨單的筆數不定，所以在輸出有表格時會造成表格忽長忽短，所以我的做法是先建立異動檔案 ，然後再加入

  if i mod PageCount<>0 then
    for i:=(RecordCount mod PageCount) 1 to PageCount do 
      Append;

這樣就可以補足Detail Band的迴圈數了, 不曉得是不是你要的資訊。 ~~~~~~~~~~~~~~~~ 有夢想最美......

------
~~~~~~~~~~~~~~~~
有夢想最美......