請問站長大人:: 你們都如何用qreport 製做雙報表的 ?? 如下:: 比如table中有d1,d2,d3三個欄位, 要在報表中顯示如下:: d1,d2,d3,d1,d2,d3 其中左右彼此不能重複,比如左邊顯示單號,右邊即是雙號??? lin and

------
lin and

引言: 請問站長大人:: 你們都如何用qreport 製做雙報表的 ?? 如下:: 比如table中有d1,d2,d3三個欄位, 要在報表中顯示如下:: d1,d2,d3,d1,d2,d3 其中左右彼此不能重複,比如左邊顯示單號,右邊即是雙號??? lin and

1.不要採用Datasource連結QuickRep 2.將資料先放在Array中,先排好二維陣列,也就是要顯示的方式 3.在QuickRep的NeedData事件中將陣列填入QuickRep中的QRLabel 這樣說明,了嗎? ～～～Delphi K.Top討論區站長～～～

我的作法是比較複雜 1.Create temp Table var table:TTable; begin with table do begin databasename:=.... //設定為異動檔路徑 tablename:=....//讀取異動檔名 with fielddefs do begin clear; add('d1L',ftstring,10); add('d2L',ftstring,10); add('d3L',ftstring,10); add('d1R',ftstring,10); add('d2R',ftstring,10); add('d3R',ftstring,10); end; with indexdefs do ....... createtable; table.open; //readData 讀入資料.... with query do begin first; while not eof do begin if recordcount mod 2 = 1 then begin table.append; table.fieldbyname('d1L').asstring:=....; ... end else begin table.fieldbyname('d1R').asstring:=...; .... post; end; next; end; end; if state<>dsBrowse then post; end; try QuickRep1.preview; // or print finaly table.close; delete(....)//異動檔 end; end; ~~~~~~~~~~~~~~~~ 有夢想最美......

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

好像也可以直接把兩組d1,d2,d3都擺TQRLabel 然後在DetailBand1BeforePrint寫程式碼... 像這樣(要先select出要的順序)..

  QRLabel1.Caption := Query1.Fields[0].AsString;
  QRLabel2.Caption := Query1.Fields[1].AsString;
  QRLabel3.Caption := Query1.Fields[2].AsString;
  Query1.Next;
  if not Query1.IsEmpty then
    begin
      QRLabel4.Caption := Query1.Fields[0].AsString;
      QRLabel5.Caption := Query1.Fields[1].AsString;
      QRLabel6.Caption := Query1.Fields[2].AsString;
    end;

不曉得這樣寫會不會比較不好?!

引言: 好像也可以直接把兩組d1,d2,d3都擺TQRLabel 然後在DetailBand1BeforePrint寫程式碼... 像這樣(要先select出要的順序)..

  QRLabel1.Caption := Query1.Fields[0].AsString;
  QRLabel2.Caption := Query1.Fields[1].AsString;
  QRLabel3.Caption := Query1.Fields[2].AsString;
  Query1.Next;
  if not Query1.IsEmpty then
    begin
      QRLabel4.Caption := Query1.Fields[0].AsString;
      QRLabel5.Caption := Query1.Fields[1].AsString;
      QRLabel6.Caption := Query1.Fields[2].AsString;
    end;

不曉得這樣寫會不會比較不好?!

這樣是不錯,但是當資料中有跳號的情形,此法就不方便用, 所以我才會用Array: 1.不用多佔Database空間 2.用記憶體速度較快 3.Array可以自由安排,兩欄三欄都很方便 ～～～Delphi K.Top討論區站長～～～

對哄~~跳號就skk了...^^~ 如果左邊與右邊的東西以select分得開的話(或當初可直接產生 到兩個temp table).. 也可以用兩個Query,一邊管一個,不過,要以RecordCount多的為主導(自動移Next).. 例如: if Query1.RecordCount > Query2.RecordCount.. => QuickRep1及TQBText等自動連結的元件都設給它.. Query2那邊則以TQRLabel自己寫入Caption... 這樣寫的話,可嗎?! 對了,請教站長,以記憶體Array處理時, 當資料量大時(又大到什麼樣的程度?!),您怎麼處理?!thx~

引言: 對了,請教站長,以記憶體Array處理時, 當資料量大時(又大到什麼樣的程度?!),您怎麼處理?!thx~

不知Delphi Array上限多少,我的資料量還沒那麼大! ～～～Delphi K.Top討論區站長～～～

感謝站長和各位同好不吝詳解!! 小地銘感五內!! 謝啦!! lin and

------
lin and

請教站長大大 可以對Array的方式做個範例嗎? 我試不出來ㄋㄟ 下面是我測試的Code var a_Buf : array of array of String; ... procedure Tfrm_Qrp.Qrp_BaseNeedData(...); var i,j : Integer; begin MoreData := true; for i:=0 to High(a_Buf) do for j:=0 to High(a_Buf[i]) do QrLabel1.Caption := a_Bug[i,j]; MoreData := false; end; 以上的程式，a_Buf內有多筆資料，但預覽石只顯示一行，不知道是哪作錯了? 謝謝

qrband 有個屬性 forceNewColumn 應該套套這個屬性就可以了

引言: 請教站長大大 可以對Array的方式做個範例嗎? 我試不出來ㄋㄟ 下面是我測試的Code var a_Buf : array of array of String; ... procedure Tfrm_Qrp.Qrp_BaseNeedData(...); var i,j : Integer; begin MoreData := true; for i:=0 to High(a_Buf) do for j:=0 to High(a_Buf[i]) do QrLabel1.Caption := a_Bug[i,j]; MoreData := false; end; 以上的程式，a_Buf內有多筆資料，但預覽石只顯示一行，不知道是哪作錯了? 謝謝

OnNeedData這個函式是一個迴圈呼叫一次的 將var i,j : Integer;放到外部變數 一次填上一行的資料 ～～～Delphi K.Top討論區站長～～～

問題已經得到解決了 感謝大大的解答..^^ 可是我弄不懂 hahalin 大大提的 forceNewColumn 屬性的用法 能舉例一下嗎??