現在資料庫有兩筆欄位，但我想要在QReport下列印出的資料順序是先"由左到右"，然後在"由上到下"，請問各位高手要如何辦到ㄝ？

小弟的做法是用TClientDataSet在本機端實作出虛擬TempTable, 將資料作一次排列整理再由QuickReport印出. Delphi Man

------
Delphi

由上到下印列資料 在字體就選 @ 的，文字自轉90度 數字符號要全形才會轉 90度 由左到右 須利用copy字串中取得位置左至右取字一個個取字於QRDBText中 例 取數字並轉全型 procedure TQrpDieLdDgSv.QRDBText12Print(sender: TObject; var Value: String); var Value1 :string; //數字個位數(左至右取字) begin if Value <> '' Then begin Value1 := Copy(Value,2,1); if Value1 = '0' Then Value1 := '０'; if Value1 = '1' Then Value1 := '１'; if Value1 = '2' Then Value1 := '２'; if Value1 = '3' Then Value1 := '３'; if Value1 = '4' Then Value1 := '４'; if Value1 = '5' Then Value1 := '５'; if Value1 = '6' Then Value1 := '６'; if Value1 = '7' Then Value1 := '７'; if Value1 = '8' Then Value1 := '８'; if Value1 = '9' Then Value1 := '９'; Value := Value1; end else Value := ''; end; procedure TQrpDieLdDgSv.QRDBText4Print(sender: TObject; var Value: String); var Value1 :string; //十位數(數字左至右取字) begin if Value <> '' Then begin Value1 := Copy(Value,1,1); if Value1 = '0' Then Value1 := '０'; if Value1 = '1' Then Value1 := '１'; if Value1 = '2' Then Value1 := '２'; if Value1 = '3' Then Value1 := '３'; if Value1 = '4' Then Value1 := '４'; if Value1 = '5' Then Value1 := '５'; if Value1 = '6' Then Value1 := '６'; if Value1 = '7' Then Value1 := '７'; if Value1 = '8' Then Value1 := '８'; if Value1 = '9' Then Value1 := '９'; Value := Value1; end else Value := ''; end;