請問專家: 簡述: quick report可否像DBGrid一樣將database中的值,例如:性別為"f")轉成"男"(用Canvas.TextOut可以轉)顯示在畫面上. 內容: 我在資料庫中的性別欄是用"f"及"m"代表,顯示在dbgrid中則轉成"男"及"女",但用quickreport預覽列印時卻還是顯示"f"及"m".所以請問quick report可否轉換欄位值呢?或有其他方法呢? 謝謝!

Hi mingking0947,    在該欄位相對應的 QRDBText 的 OnPrint 事件上加入以下程式碼

procedure TForm1.QRDBText1Print(sender: TObject; var Value: String);
begin
  if value = 'f' then value  := '男'
  else if value = 'm' then value := '女'
  else value := '不男不女';
end;

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

------
Fishman

大大你好： 我將的程式改成 procedure TForm1.QRDBText1Print(sender: TObject; var Value: String); begin if value ='' then value=0; end; 無法使用，為什麼？謝謝

Hi kirk,    1.先確定 Value 的值    2.

procedure TForm1.QRDBText1Print(sender: TObject; var Value: String);
begin
  if value = '' then
    value := 0; // 少了:
end;

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

------
Fishman

謝謝大大的回應： 我想請教，如果我要判斷QRDBText為空值，希望以0來替代。要如何做。 另外value是意指什麼？

建議你取得資料的當時, 就先把他query正確, 就不用判斷是不是空値了

比如SQL Server請用 isnull(field, 0) as field

Oracle DB請用nvl(field, 0) as field

===================引 用 文 章===================
謝謝大大的回應：我想請教，如果我要判斷QRDBText為空值，希望以0來替代。要如何做。

QRDBText的屬性上找 Mask 輸入 ***,***,**0 這樣的話就算是空值也會出現0有值得話同時也有3位一撇的效果