想請問各位前輩,假如在rbDetial 的band中,當第二筆的一個特定欄位與第一筆相同時,則第二筆的該欄位值不印出,第三筆亦相同,直到出現不同值為止,即 顧客名稱 產品 數量 王大銘 電視 1 冰箱 1 電話 2 李大嬸 電腦 1

Hi supermp54,    定義一個全域變數 TMPField ，Preview 時先將該值清空，並於該 Detail Band 中，判斷 TMPField 是否與目前這一筆之該欄位相同，來決定該來為是否印出，Report 的 OnstartPage 也可以加入 TMPField = ''; 來讓換頁時該值也會印出

procedure TForm1.QRBand2BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
    IF TMPField = Query1.FieldByName('Field').AsString THEN
        BEGIN
            QRDBText1.Enabled := False;
        END
    ELSE
        BEGIN
            TMPField := Query1.FieldByName('Field').AsString;
            QRDBText1.Enabled := True;
        END;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

謝謝您的指教