請教各位 QReport 列印時,若一個欄位資料長度過長,有沒又辦法讓它自動換行呢(類似Memo) 然後整行欄位高度也變成2行或3行 謝謝

剛才翻了一下以前網友們問的和回答的 我照著設定 qrdbtext屬性設定: AutoSize:=False AutoStretch:=True WordWrap:=True 它有自動換列到下一行 但是卻沒有自動加大列高ㄝ

補充一下 我是指DetalBand內的QRShape並不會自動調整高度 是不是一定要自己寫程式ㄚ 但是好像沒有可供判斷的條件ㄝ 發表人 - Nelson Lo 於 2003/10/09 11:08:35

引言: 補充一下 我是指DetalBand內的QRShape並不會自動調整高度 是不是一定要自己寫程式ㄚ 但是好像沒有可供判斷的條件ㄝ 發表人 - Nelson Lo 於 2003/10/09 11:08:35

QRShape 要依QrDbText之Width,Height寫程式調整, 在DetailBand1BeforePrint事件中做

欄位資料如果是中文則無效,如何處理呢

之前有一位kulius 大大有回答過 我把原文轉載在此 呵。。樓上都說要寫程式了. 還不自己去找。 如下。這不是我寫的。 是從深度論談的高手寫的 // 判斷所截斷的字是否為中文 // instr : 要被截斷的字句 // cutlength : 截掉的Byte數 function TReportBase.TruncNonChiChar(instr: string; cutlength: integer): string; var sCuted: string; temp: string; iCutLength: integer; j: integer; bIsDBCS: boolean; begin temp := ''; // 截出 _LengthPerLine 個字元出來 iCutLength := cutlength; repeat sCuted := Copy(instr, 1, iCutLength); iCutLength := Length(sCuted); bIsDBCS := False; // 看看最後一個字元是不是中文的前半個字 for j := 1 to iCutLength do begin if bIsDBCS then bIsDBCS := False else if Windows.IsDBCSLeadByte(byte(sCuted[j])) then bIsDBCS := True; end; // 如果最後一個字是中文的話, 少截一個字元 if bIsDBCS then Dec(iCutLength); temp := temp (Copy(instr, 1, iCutLength)) #13; instr := Copy(instr, iCutLength 1, Length(instr) - iCutLength); until Length(instr) <= 0; TruncNonChiChar := temp; end;